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FOREWORD 


The  Human  Factors  Technical  Area  of  the  Army  Research  Institute 
(ARI)  is  concerned  with  the  human  resource  demands  of  increasingly  complex 
battlefield  systems  designed  to  acquire,  transmit,  process,  disseminate, 
and  utilize  information.  Research  focuses  on  human  performance  problems 
related  to  interactions  within  command -and -control  centers  as  well  as 
issues  of  system  development,  performance,  effectiveness,  and  efficiency. 

It  is  concerned  with  such  areas  as  software  development,  topographic 
products  and  procedures,  tactical  symbology,  user-oriented  systems,  infor¬ 
mation  management,  staff  operations  and  procedures,  decision  support,  and 
sensor  systems  integration  and  utilization. 

Of  special  interest  are  the  human  factors  problems  related  to  the 
integration  of  human  functions  into  information-processing  systems  and 
to  the  harmonizing  of  system  components,  personnel,  and  operations  in  a 
battlefield  environment.  To  incorporate  human  functions  and  performance 
into  simulated  system  operations,  a  research  program  at  ARI  developed  a 
computer  simulation  of  a  generalized  human  information  processing  model 
(MANMOD).  MANMOD  permits  study  of  system  operations  and  performance  under 
prescribed  as  well  as  alternative  personnel  and  equipment  configurations. 

This  user's  guide  is  a  companion  to  ARI  Technical  Report  413  (Volume  IV), 
which  describes  the  interface  of  MANMOD  with  two  computer  models,  CASE  and 
SAMTOS,  of  the  Army's  tactical  operations  system  (TOS).  It  documents  the 
MANMOD  computer  model  in  sufficient  detail  to  permit  on-line  simulation  by 
users  with  minimal  computer  experience  and  to  facilitate  program  changes  by 
skilled  programmers.  This  effort  supported  the  Army’s  cost-effectiveness 
analysis  of  TOS  (CEATOS)  and  the  investigation  of  alternative  TOS  config¬ 
urations.  Earlier  reports  in  the  series  described  sequential  versions  of 
MANMOD:  batch  processing  in  Volume  I  (ARI  technical  report  TR-77-A23), 
on-line  processing  in  Volume  II  (TR-77-A24),  and  interactive  in  Volume  III 
(TR-77-A25).  Also,  ARI  publications  TR-77-A22  and  Technical  Report  407 
describe  a  second-generation  model,  NETMAN,  developed  on  the  basis  of  MANMOD 
research . 

Research  on  systems  integration  and  operations  is  conducted  as  an 
in-house  effort  augmented  through  contracts  with  organizations  selected  for 
their  unique  capabilities  and  facilities  for  research  and  development  on 
human  performance  and  computer  simulation.  This  report  represents  research 
by  personnel  from  ARI  and  Applied  Psychological  Services,  Inc.,  under 
contract  DAHC19-75-C-0001 .  The  effort  is  responsive  to  general  requirements 
of  Army  Project  2Q762722A765  and  to  special  requirements  of  the  U.S.  Army 
Combined  Arms  Combat  Development  Activity.  Special  requirements  are 
contained  in  Human  Resources  Need  76-161,  "MAN  MODEL  interface  with  other 
CEATOS  support  models." 
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A  DIGITAL  SIMULATION  MODEL  OF  MESSAGE  HANDLING  IN  THE  TACTICAL  OPERATIONS 
SYSTEM:  V.  User's  Guide  to  the  Integrated  MANMOD/CASE/SAMTOS  Computer 

Simulation 


BRIEF 


Requirement : 

To  develop  a  user's  manual  and  programmer's  guide  to  the  integrated  , 
MANMOD/CASE/SAMTOS  simulation  of  the  Army's  tactical  operations  system 
(TOS).  MANMOD  simulates  activities  within  a  communications  station  and 
assesses  the  effects  of  operator  characteristics  on  message-handling 
performance  to  provide  estimates  of  human  performance  parameters.  CASE 
simulates  the  TOS  communications  network  itself  and  estimates  the  effects 
on  TOS  performance  of  number  of  components  and  network  variations.  SAMTOS 
simulates  the  TOS  computer  hardware  and  software. 


Product : 

In  the  integrated  simulation,  MANMOD  accepts  network  equipment  parameter 
estimates  from  CASE  and  generates  estimates  of  human  performance  parameters 
for  use  in  the  SAMTOS  model.  This  user's  guide  documents  input  specifi¬ 
cations  of  simulation  parameters,  operation  and  output  options,  and  inter¬ 
pretation  of  the  output  data.  A  program  listing  and  detailed  flow  charts 
are  provided  to  facilitate  program  changes. 


Utilization : 

The  documentation  permits  users  ahd  programmers  to  modify  the  inte¬ 
grated  MANMOD/CASE/SAMTOS  program  to  satisfy  a  larger  variety  of  system 
simulation  requirements.  The  integration  of  the  three  computer  simulations 
provides  a  useful  tool  for  analyzing  and  designing  alternative  system 
configurations.  Within  the  limits  imposed  by  the  lack  of  appropriate  data 
for  validating  the  model,  system  effectiveness  and  other  figures  of  merit 
can  be  obtained  for  alternative  system  configurations.  These  alternatives 
can  reflect  differences  in  personnel  characteristics,  manning  levels, 
message  traffic  loads,  equipment  capabilities,  performance,  or  message 
types.  Results  can  provide  insights  on  equipment  design,  training  and 
personnel  requirements,  and  the  tradeoffs  necessary  for  optimum  cost 
effectiveness . 


vii 


TABLE  OF  CONTENTS 


^  cluri.n 

I 


Page 


CHAPTER  I  -  INTRODUCTION .  1 

Background .  1 

CHAPTER  II  -INPUT  DATA  .  3 

Card  Input .  3 

Card  Type  1 .  6 

Card  Type  2 .  6 

Card  Types  3,  4,  and  5 .  9 

Card  Types  6,  7,  and  7.  5  . 11 

Card  Types  9  and  10 . 13 

Card  Types  11,  12,  and  13  . 13 

Card  Types  14  and  15 . 15 

Card  Types  16  and  17 . 18 

Card  Types  18  through  27 . 19 

Card  Types  28  and  29 . 22 

Output . 24 

CHAPTER  III  -  OPERATIONS  AND  OUTPUT . 29 

Revised  CASE  Employment . 30 

Detailed  Output . 31 

Output  Format . 32 

Detailed  Message  Output . 32 

Run  Summary . 36 

Effectiveness  Run  Summary . 38 

Workload  Summary . 38 

Error  Summary . 38 

Error  Message  Summary . 38 

REFERENCES  . 41 

APPENDIX  A  -  Glossary . 43 

APPENDIX  B  -  Program  Listing . 61 


APPENDIX  C 


Flow  Charts 


117 


I 


LIST  OF  FIGURES 

Figure  Page 

2-1  Printout  record  of  input  data . 25 

2-2  Task  analysis  related  and  effectiveness  components 

input  record . i . 26 

2-3  Error  message  and  related  input  record . 27 

2- 4  Interruption  and  transmission  delay  input  record . 28 

3- 1  Sample  detailed  message  processing  output . 33 

3-2  Sample  hourly  summary . 35 

3-3  Sample  iteration  summary . . . 36 

3-4  Sample  manpower  utilization  run  summary . 37 

3-5  Sample  time  segments  run  summary . 37 

3-6  Sample  effectiveness  run  summary . 39 

3-7  Sample  workload  run  summary . 39 

3-8  Sample  error  run  summary . 40 

3-9  Sample  error  message  run  summary . 40 


x 


LIST  OF  TABLES 


Table  Page 

2-1  Input  Card  Sequence .  4 

2-2  Input- -Mission  Identification  and  Simulation  Parameters .  5 

2-3  Input--Operator  Parameters .  10 

2-4  Input--Hour  Parameters .  12 

2-5  Input--Error  Data .  14 

2-6  Input- -Message  Length  Data .  14 

2-7  Input- -Task  Analytic  Data .  16 

2-8  Input-Effectiveness  Component  Data .  18 

2-9  Input  of  Error  Message  and  Random  Walk  Data .  20 

2-10  Categorization  of  Vocalic  Center  Groups  (VCG's)  in  Current 

TOS  Error  Messages .  22 

2-11  Input  of  Incoming  Message  Interruptions  and  Transmission 

Delay  Data .  23 


xi 


I 


CHAPTER  I 
INTRODUCTION 


Bark ground 


Under  the  sponsorship  of  the  U.  S.  Army  Research  Institute  for  the 
Behavioral  and  Social  Sciences,  in  1971  Applied  Psychological  Services 
developed  a  computer  simulation  of  the  U.  S.  Army's  Tactical  Operations 
System  (Siegel,  Wolf,  &  Leahy,  1973a).  In  this  model,  the  psychological 
factors  and  the  queuing  structure  of  message  preparation  and  transmission 
at  the  G3  level  are  simulated.  The  MANMOD  was  set  up  originally  for 
data  card  input.  Later  (Siegel,  Wolf,  Leahy,  &  Bearde,  1973b)  this  capabil¬ 
ity  was  extended  to  allow  the  model  user  to  change  the  input  data  via  a  termi¬ 
nal  and  to  view  summary  statistics  on  the  terminal  cathode  ray  tube  display. 
This  new  capability  was  considered  to  increasely  greatly  the  flexibility  and 
utility  of  the  MANMOD  and  thereby  allow  increased  use.  A  third  effort  was 
completed  (Leahy,  Lautman,  Wolf,  Bearde,  &  Siegel,  1974)  to  allow  the 
real  time  collection  of  experimental  data  (i.  e.  ,  allowing  an  online  operator 
to  perform  part  of  the  message  handling  task)  with  subsequent  automatic 
data  reduction  and  incorporation  into  a  fully  automatic  simulation.  The 
procedure  for  the  completion  of  performing  such  subject  interactive  simu¬ 
lations  is  reported  in  A  Digital  Simulation  Model  of  Message  Handling  in  the 
Tactical  Operations  System.  III.  Further  Extensions  of  the  Model  for  Increas¬ 
ed  Interaction. 

In  the  current  effort,  the  MANMOD  was  coupled  with  the  CASE  and  the 
SAMTOS  models.  The  advantages  of  such  integration  are' found  in  the  body 
of  the  report  titled  A  Digital  Simulation  Model  of  Message  Handling  in  the 
Tactical  Operations  System.  IV.  Model  Integration  with  CASE  and  SAMTOS 
to  which  the  present  user's  manual  forms  an  appendix.  In  performing  the 
integration,  the  subject  interactive  feature  was  not  included  because  the 
coupled  models  are  exercised  on  the  U  1108  high  speed  digital  computer  sys¬ 
tem  which  in  the  anticipated  mode  of  use  will  be  time  shared.  Use  of  a  time 
sharing  system  prevents  a  realistic  subject/computer  interaction. 

The  "user's  manual"  presents  the  information  required  for  employing 
the  integrated  model.  As  such,  it  also  represents  a  full  users  manual  for 
MANMOD  since  MANMOD  is  the  core  of  the  integration. 
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The  manual  contains  full  input  data  instructions,  operating  instruc¬ 
tions,  and  out  descriptions.  A  full  glossary  along  with  program  list  and  flow 
charts  are  included  as  appendices. 
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CHAPTER  II 
INPUT  DATA 


The  required  input  data  for  specifying  the  simulation  structure  for 
the  integrated  models  are  described  in  this  section.  Required,  optional, 
and  default  parameters  are  delineated,  along  with  a  brief  rationale  con¬ 
cerning  the  relative  impact  of  parameter  changes  on  the  simulation  validity 
and  on  the  computer  time  usage.  Three  different  systems  of  input  data  are 
used  in  the  model  and  will  be  described  in  this  section.  There  are  card 
input,  CRT  input,  and  computer  data  file  input. 

Card  Input 

Table  2-1  presents  the  sequence  of  data  cards  for  entering  the 
MANMOD  computer  program.  There  is  a  total  of  29  card  types.  Six  types 
are  control  cards  which  either  initiate  or  bypass  the  entry  of  different  types 
of  data.  These  control  cards  allow  default  options  to  be  used  for  simplicity 
and  also  allow  the  capability  of  making  slightly  different  multiple  runs  back 
to  back  without  the  need  to  repeat  the  input  of  all  of  the  data.  The  final  data 
card  triggers  either  a  simulation  termination  or  a  return  to  card  type  1  and 
a  new  simulation.  The  order  of  data  cards  within  a  run  is  critical.  A  sin¬ 
gle  card  type  out  of  sequence,  an  extra  card,  or  a  missing  card  will  cause 
either  an  aborted  run  or  a  meaningless  output. 

Table  2-2  identifies  variable  name,  variable  usage  and  purpose, 
card  columns,  and  input  format  for  card'  types  1  and  2.  The  variable  names 
are  the  FORTRAN  names  used  in  the  computer  program.  The  descriptions 
are  an  abstracted  version  of  the  text.  The  card  columns  identify  the  com¬ 
puter  card  columns  to  be  used  on  the  specified  card  allocated  for  the  variable. 
For  example,  in  Table  2-2,  the  variable  NSHIFT  is  shown  to  occur  on  card 
type  2  in  card  columns  1  to  3.  This  means  the  longest  value  which  could  be 
specified  is  999.  The  letter  I  in  the  format  columns  says  that  the  variable  is 
entered  in  an  integer  format  and  no  decimal  point  is  required  and,  in  fact,  is 
not  allowed.  The  number  entered  in  these  columns  is  right  justified  where 
blanks  are  read  as  zeros.  That  is,  a  9  in  column  one  followed  by  two  blanks 
will  be  read  in  as  900.  An  A  under  format  identifies  alphanumeric  data  where 
the  exact  contents  of  the  columns  are  recorded  for  later  printing.  An  R  under 
format  identifies  a  real  variable.  A  real  number  requires  a  decimal  point. 


3 


I 


Table  2-1 


Input  Card  Sequence 


Order 
(and  Type) 


Description  of  Input  Card  Contents/Function 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 


Mission  title 
Simulation  parameters 
Option  card 
Names  of  operators 

Operation  parameters  (one  card  per  operator) 

Option  card 

Names  of  message  types 

Hour  parameters  (one  card  for  each  hour) 

Option  card 

Error  data  (one  card  for  each  of  three  error  types) 

Option  card 
Message  length  data 

Message  length  standard  deviation  data 
Option  card 

Task  analysis  data  (one  card  for  every  task  element) 

Option  card 

Effectiveness  components 
Number  of  error  messages 

Error  message  VCG  data  (one  card  for  every  error  message) 

Number  of  information  search  options 

Information  search  data  (one  card  for  every  information  search  option) 
Option  card 

Correction  submission  data 
Option  card 
Random  walk  data 
Option  card 

Levels  of  ambiguity  data 

Interruption  data  and  message  transmission  data 
Option  card 
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'fable  2-2 

I n | ) u t --M i ssion  I don t i f i cu t ion  and  Simulation  Parameters 

Card 

Columns  Format. 

Mission  Title  (card  typo  1) 

IDENT-  A  run  descriptor  of  up  to  72  characters  is  printed  on  the 

top  of  each  page  of  printout  followed  by  the  page  number .  1-72  A 

Simulation  Parameters  (card  type  2) 


NSHIPT-  Number  of  repetitions  or  iterations  of  this  mission  before 

summary  data  are  prepared .  1-3  1 

I HM AX—  Uumbc-r  of  hours  per  shift  (determines  the  number  of  type  6 

cards  to  be  read) . .  4-S  I 

MEN(l)-  Number  of  operators  of  type  1,  number  of  action  officers  in¬ 
cluding  G-3.  The  highest  numbered  AO  is  the  G-3 .  6  I 

MEN(2)~  Number  of  operators  of  type  2,  number  of  input/output  device 
(IOD)  operators.  The  sum  of  MEN(l)  t  MEH(2)  determines  the 

number  of  type  S  cards  to  be  read  in .  7  1 

NERROP-  Option  to  process  error  messages.  If  equals  1  error  message 

data  will  be  read  in .  8  1 

INTOP-  Option  to  input  interruption  and  transmission  delay  data  9  X 

0R0(1)-  Output  recording  option  number  1 . 10  A 

If  equal  1  print  input  data 

0R0(2)-  Ouput  recording  option  number  2 . 11  A 

If  equal  to  1  print  hourly  message  queue 

0R0(3)-  Not  used . 12  A 

0R0(4)-  Output  recording  option  4 . 13  A 

If  equal  to  1  print  detail  task  element  processing 

0R0(5)-  Output  recording  option  5 . 14  A 

If  equal  to  1  print  message  processing 

0R0 ( 6 ) -  Output  recording  option  6 . 15  A 

If  equal  to  1  print  hour  and  iteration  summary 

0R0(7)-  If  equal  to  1  allows  experimenter  change  of  input  data . 16  A 

0R0(8)-  If  equal  to  1  triggers  personal  interruption  data  input . 17  A 

0R0(9)-  If  equal  to  1  calls  data  from  CASE . 18  A 

IDAY-  Day  of  mission  simulation . 19-20  I 

BKLG-  Number  of  messages  in  A0/G3  inbox  at  the  beginning  of  the 

shift . 21-22  I 

PUL-  Probability  of  a  non  important  undetected  error  in  the  central 

computer  complex  data  store . 25-29  R 

PUS-  Probability  of  a  significant  error  in  the  central  computer 

complex  data  store . 30-34  R 

SRTA-  System  response  time  to  an  inquiry . 35-39  R 

SRTS-  Standard  deviation  of  the  system  response  time  to  an  inquiry ...  40-44  R 

IATA(l,l)Task  analysis  to  be  used  for  operator  type  1  message  type  1....4S  I 

IATA(l,2)Same  as  above  but  for  message  type  2 . 46  I 

IATA(1 ,3)Same  as  above  but  for  message  type  3 . . . 47  I 

IATA(l,4)Same  as  above  but  for  message  type  4 . 48  I 

IATA(l,6)Same  as  above  but  for  message  type  5 . . . 49  I 

IATA(1 ,6)Same  as  above  but  for  message  type  6 . 50  I 

IATA(l,7)Same  as  above  but  for  message  type  7 . 51  I 

IATA(l,8)Same  as  above  but  for  message  type  8 . 52  I 

IATA(2,l)0perator  type  2,  message  type  1 . 53  I 

IATA(2,2)0perator  type  2,  message  type  2 . 54  I 

IATA(2,3)0pera:or  type  2,  message  type  3 . ■. . 55  I 

IATA(2,4)0perator  type  2,  message  type  4 . 56  I 

IATA(2,5)0perator  type  2,  message  type  5 . 57  1 

IATA(2 ,6)0perator  type  2,  message  type  6 . 58  1 

IATA(2,7)0perator  type  2,  message  type  7 . 59  I 

IATA(2,8)Operator  type  2,  message  type  8 . 60  I 

NTE-  Number  of  task  elements  overall  task  analyses  to  be  used 

(determines  the  number  of  type  15  cards  to  be  read  Jn). ........  61-63  I 

Y-  Random  number  to  be  used  to  initialize  random  number 

generator  (must  be  odd  number  greater  than  1)... . 65-71  R 

ICHAIN-  Shift  number  for  this  run  if  chaining  option  is  being 

utilized  (ICHAIN1  1  first  shift,  0  if  no  chaining) . 76  I 

TZER0-  Time  at  start  of  shift  being  simulated . 77-80  R 
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Card  Type  1 

Card  type  1  is  the  first  data  card.  It  mi'"t  be  the  first  entry  in 
the  data  file  if  the  cards  are  read  into  a  file  before  use  in  a  simulation. 

The  formats  for  card  types  1  and  2  are  shown  in  Table  2-2.  Card  type  1 
provides  72  columns  (columns  1  through  72  on  a  computer  card)  for  a  prose 
description  of  the  mission  to  be  simulated.  This  prose  description  is  stored 
in  a  variable  array  dimensioned  at  12  (6  alphanumeric  characters  may  be 
stored  in  each  word  on  the  U  1108  computer).  The  purpose  of  this  title  is 
to  allow  easy  identification  of  a  run.  The  title  is  printed  at  the  top  of  each 
page  of  computer  printout  produced  during  the  simulation. 


Card  Type  2 

Card  type  2  contains  the  more  general  simulation  parameters  to  be 
used  to  control  the  simulation.  The  first  variable  on  this  card  sets  the  num¬ 
ber  of  times  the  entire  simulated  mission  will  be  repeated  (NSHIFT).  The 
results  of  the  simulation  will  be  averaged  across  all  NSHIFT  mission  repe¬ 
titions  to  produce  the  output  data.  This  repetition  is  necessary  due  to  the 
stochastic  nature  of  many  simulation  aspects.  Only  after  the  repetition  of 
the  mission  across  a  sufficient  number  of  stochastically  generated  combina¬ 
tions  of  events  can  a  more  or  less  stabilized  pattern  of  output  be  produced. 
When  a  totally  new  mission  is  under  analysis,  a  comparison  of  the  differences 
in  the  results  between  10,  20,  50,  and  100  iterations  is  advisable.  A  differ¬ 
ence  between  the  results  of  only  a  few  per  cent  is  sufficient  for  selecting  the 
smaller  number  of  iterations  for  further  runs.  Naturally,  the  smallest  num¬ 
ber  of  iterations  producing  a  stable  output  pattern  should  be  selected  because 
the  number  of  iterations  is  the  primary  determinant  of  computer  processing 
time. 


The  second  card  type  2  variable  is  the  number  of  hours  to  bp  simu¬ 
lated  (IHMAX).  Up  to  12  hours  may  be  simulated  during  a  shift.  The  value 
of  this  variable  will  determine  the  number  of  type  8  cards  read,  although 
the  type  6  card  will  determine  if  any  are  read  in  on  a  given  run.  This  allows 
multiple  simulations.  For  example,  where  12  hours  are  simulated  in  one 
run,  only  the  first  six  hours  of  the  12  might  be  simulated  in  a  second  run. 
Obviously,  more  hours  may  not  be  simulated  on  a  second  run  without  reading 
in  a  new  complete  set  of  hour  data. 

The  next  variables  entered  are  the  number  of  Action  Officers  [MEN(l)] 
and  the  number  of  input/output  device  operators  [MEN (2)]  to  be  included  in 
the  simulation.  At  least  one  of  each  must  be  specified.  The  number  of  Ac¬ 
tion  Officers  includes  the  G3,  who  only  works  on  non  routine  messages.  The 
total  number  of  men  [MEN(1)+  MEN(2)]  may  not  exceed  six. 


Variable  NERROP  of  card  type  2  determines  whether  the  error 
message  evaluation  aspect  of  the  MANMOD  will  be  used  in  the  current 
run.  If  the  value  1  is  entered,  then  the  data  cards  type  18  to  27  (de¬ 
scribed  later)  must  be  supplied.  If  any  other  value  is  used,  error  mes¬ 
sages  occurring  in  the  simulation  cause  a  simple  branch  in  the  task  anal¬ 
ysis  and  no  simulation  of  the  decision  process  or  the  information  search 
procedure  will  occur. 

Another  option  controller  is  the  variable  INTOP.  If  INTOP  is  set 
equal  to  1,  the  incoming  message  interruption  and  transmission  delay  fea¬ 
tures  will  be  used.  Exercising  this  option  requires  that  card  type  28  be  sup¬ 
plied. 


Five  output  recording  options  [ORO(l-6)]  are  available  for  selection. 
Samples  of  each  printout  option  are  presented  and  discussed  in  Chapter  III. 
These  options  are  triggered  by  a  1  in  the  appropriate  column.  Option  1  pro¬ 
vides  a  printout  record  of  the  input  data  in  its  entirety.  Option  2  provides 
a  printout  of  the  Action  Officer  message  queue  which  includes  the  messages 
already  available,  as  well  as  the  messages  which  will  be  arriving  during  the 
hour.  The  IOD  queue  is  also  displayed  as  a  result  of  option  2.  Option  3  is 
not  used.  Option  4  provides  the  most  detailed  record  of  the  simulation  in¬ 
cluding  the  time  and  outcome  of  all  tasks  performed.  This  record  will  pro¬ 
duce  two  pages  of  printout  for  each  message  processed,  not  counting  hour 
iteration  summaries.  The  program  will  automatically  drop  detailed  print¬ 
ing  after  the  first  iteration.  Option  5  produces  a  printout  of  message  proc¬ 
essing  information  including  any  errors  and  the  time  at  which  the  message 
completion  segments  were  performed.  Option  6  produces  hour  and  iteration 
summaries.  The  overall  run  and  shift  summaries  are  automatically  called 
at  the  appropriate  times  and  thus  are  not  optional. 

Options  7,  8,  and  9  are  not  printout  options  but  interaction  options. 
Option  7,  when  exercised,  allows  the  user  to  change  output  via  a  terminal, 
as  well  as  to  receive  summary  data  on  the  terminal's  cathode  ray  tube. 

Option  8  calls  data  collected  in  the  subject  interactive  mode.  The 
subject  interactive  data  collection  mode  is  not  currently  available  on  the 
U  1108  system.  However,  provision  for  the  use  of  data  collected  in  this 
mode  has  been  included  if  such  capability  becomes  available  in  the  future. 

Option  9  allows  for  entering  data  provided  by  the  CASE  model.  This 
option  also  enters  output  data  into  another  file  for  the  later  use  of  the 
SAMTOS  model.  These  data  are  described  later.  The  next  variable  en¬ 
tered  is  the  day  of  the  mission  simulated.  The  day  number  refers  to  the 
number  of  days  which  have  been  worked  without  a  day  off  up  to  and  includ¬ 
ing  the  simulated  day.  The  day  number  is  used  as  a  partial  basis  for  com¬ 
puting  operator  fatigue  level. 
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The  number  of  messages  in  the  Action  Officer's  in  box  (BKLG)  at 
the  beginning  of  the  shift  is  the  next  variable  entered.  These  represent 
backlog  messages  or  communications  left  over  from  the  previous  shift. 

This  number  is  replaced  by  a  simulation  generated  number  for  the  second 
shift  of  a  chained  run. 

The  probability  of  an  unimportant  undetected  error  (PUL)  is  followed 
by  the  probability  of  a  significant  error  (PUS) in  the  central  computer  com¬ 
plex.  These  errors  represent  noncorrected  data  which  will  compose  mis¬ 
information  within  the  data  bank.  These  probabilities  are  used  in  connec¬ 
tion  with  other  simulated  performance  characteristics  to  predict  informa¬ 
tion  loss  and  other  measures  of  system  performance. 

The  average  response  time  (the  time  between  an  inquiry  and  a  re¬ 
sponse)  (SRTA)  is  entered  along  with  its  standard  deviation  (SRTS).  These 
values  may  be  replaced  by  CASE  generated  data  if  option  9,  described  above, 
is  exercised. 

The  IATA  (J,  IT)  array  identifies  the  task  analysis  or  procedure  to 
be  used  by  each  operator  type  (J)  in  processing  each  type  of  message  (IT). 

The  exact  task  analysis  data  are  entered  later.  The  model  is  presently 
limited  to  a  maximum  of  four  task  analyses.  A  task  analysis  may  have  up 
to  20  task  elements.  The  total  number  of  task  elements  (NTE)  across  all 
task  analyses  is  entered.  This  value  will  determine  the  number  of  type  15 
cards  to  be  entered  later.  This  value  will  be  overridden  by  the  type  14  and 
if  no  cards  are  to  be  read  in  on  a  particular  run. 

The  random  number  generator  must  be  initiated  by  starter  value  (Y). 
The  starter  value  will  produce  a  repeatable  string  of  pseudorandom  num¬ 
bers.  By  using  the  same  initial  value  of  Y,  along  with  an  identical  set  of 
input  data,  an  exact  simulation  duplicate  can  be  produced.  This  capability 
is  useful  when  a  repetition  of  a  specific  run  is  wanted. 

A  simulation  may  be  run  chaining  the  messages  left  incomplete  on 
one  run  to  the  backlog  used  on  the  next  run.  This  chaining  option  is  control¬ 
led  by  the  variable  ICHAIN.  Where  no  chaining  is  desired,  ICHAIN  should  be 
set  to  zero.  When  ICHAIN  is  set  to  one,  the  left  over  messages  are  recorded 
onto  a  data  file.  When  ICHAIN  is  set  to  2,  the  number  of  incompleted  mes¬ 
sages  from  run  1  are  considered  as  backlog  messages  and  are  processed. 

The  time  in  seconds  at  the  start  of  the  shift  being  simulated  (TZERO)  repre¬ 
sents  the  final  card  type  2  entry. 
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Card  Types  2,  4,  and  5 

Table  2-3  presents  the  operator  performance  parameters  entered 
on  card  type  3.  Column  1  of  card  type  3  (ISKIP),  if  set  to  1,  will  cause  the 
program  to  skip  the  section  on  entering  operator  parameters.  Like  the 
other  skip  commands  in  this  section,  this  skip  courses  a  bypassing  of  the 
computer  program  sections  which  read  in  the  relevant  data.  That  is,  if  the 
skip  instruction  is  given  but  data  cards  containing  operator  characteristics 
are  entered,  the  program  will  fail. 

The  first  card  (card  type  4)  after  the  ISKIP  card  contains  the  name  or 
other  alphanumeric  identifiers  of  each  of  the  operators  being  simulated.  As 
shown  in  Table  2-3,  the  names  (NAME)  are  read  from  1  to  N,  where  N  is  the 
total  number  of  operators  in  the  system  [(N  =  MEN(1)+  MEN(2)].  Six  card 
columns  are  allocated  for  each  name  and  as  many  groups  of  6  will  be  read  as 
necessary.  These  names  will  be  shown  on  various  printouts  produced  by  the 
simulation  and  afford  interpretive  ease. 

The  operator  performance  characteristics  are  entered  through  card 
type  5.  One  card  type  5  is  employed  for  each  operator.  The  first  column 
of  each  card  type  5  contains  the  man  number  (M).  The  operator  speed  entry 
[(F(M)]  indicates  how  fast  this  crewman  works  in  comparison  with  the  aver¬ 
age  speed  specified  in  the  time  allocations  on  the  task  analysis  cards.  An 
average  man  should  be  assigned  an  F(M)  factor  of  1.  0,  As  the  F(M)  values 
decrease,  the  speed  of  the  simulated  operator  increases.  A  speed  factor  of 
.  80  would  indicate  a  rapid  worker.  Similarly,  a  speed  factor  of  1.  2  would 
produce  a  Slower  than  average  worker.  Extreme  values  of  less  than  .  5  or 
more  than  1.  5  are  not  recommended  as  they  represent  individuals  who  are 
grossly  atypical.  This  speed  factor  is  considered  independently  of  the  accu¬ 
racy  of  work.  Operator  precision  or  accuracy  is  indicated  by  another  factor 
[PREC(M)] .  This  precision  factor  is  scaled  similarly  to  speed.  That  is,  a 
highly  precise  man  (i.  e. ,  one  who  makes  fewer  errors  than  the  average  would 
have  a  precision  factor  of  less  than  1.  0).  A  perfect  operator  (never  any  er-  i 

rors  or  task  element  failures)  would  be  represented  by  a  value  of  .  8  and  a 
value  of  1.  2  would  result  in  a  grossly  incompetent  operator. 

Stress  is  produced  within  the  model  when  nonroutine  messages  ac¬ 
cumulate  up  in  the  inbox.  Within  the  model,  stress  serves  to  produce  faster 
and  more  accurate  work  up  to  a  preset  threshold  [STRM(M)] .  This  stress 
threshold  is  equivalent  to  the  number  of  priority  messages  waiting  in  the 
inbox  which  will  produce  a  maximum  effort  for  this  man. 

The  final  card  type  5  entry  represents  the  man's  level  of  aspiration 
[ASP(M)].  An  entry  of  1.  0  means  that  this  man  strives  for  perfection.  As¬ 
piration  levels  of  .  90  to  .  95  have  been  found  to  be  appropriate  in  most  simu¬ 
lation  situations. 
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Table  2-3 

Input. — Operator  Parameters 


Card 

Columns 


Read  or  skip  operator  parameters  (card  type  3) 

ISKIP-  If  equal  to  1  skip  to  reading  card  type  6. 

If  not  equal  to  1  read  card  types  4  and  5 .  1 

Names  of  operators  (card  type  4) .  Reads  in  one  six 
character  name  for  each  of  the  men  specified  in  card 
type  2. 


NAME(l)-  Name  of  operator  number  1 .  1-6 

NAME (2)-  Name  of  operator  2 .  7-12 

NAME(M)-  Name  of  operator  M 


Operator  parameters  (card  type  5).  One  card  is  read  in  for  each 
man  specified  in  card  type  2. 


M-  Man  number .  1 

F(M)-  The  speed  factor  of  this  man.  A  faster  than  average 
man  has  an  F(M)  value  less  than  1.0.  A  slower  than 

average  man  has  an  F(M)  value  greater  than  1.0 .  5-9 

PREC(M)-  The  precision  factor  of  this  man.  An  average  man 
who  makes  an  average  number  of  errors  would  have 
a  precision  factor  of  1.0.  A  highly  precise  man 
who  makes  many  fewer  than  average  errors  would 


have  a  precision  factor  of  0.9.  Perfection  is  repre¬ 


sented  by  a  value  of  0.8  and  complete  failure  which 
would  result  In  unending  runs  is  represented  by  a 

value  of  1.2 .  10-14 

STRM(M)-  The  stress  threshold  of  this  man.  The  number  of 
priority  messages  in  the  backlog  for  this  man  will 

produce  a  maximum  effort .  15-19 

ASP (M) -  The  level  of  aspiration  of  this  man.  An  aspiration 

of  1.0  represents  striving  for  perfection .  20-24 


Format 

I 

A 

A 

I 

R 

R 

R 

R 


10 


r 


Card  Types  6,  7,  8,  and  7.5 

Table  2-4  presents  the  hour  parameter  input  information  contained 
on  card  types  6,  7,  8,  and  7.  5.  Card  type  6  allows  the  option  to  skip  the 
input  of  the  data  called  for  by  card  types  7,  8,  and  7.  5.  A  1  in  column  1 
causes  a  transfer  to  reading  in  the  data  contained  in  card  type  9.  Anything 
else  in  this  column  (as  long  as  it  is  an  integer  number)  will  permit  normal 
input  processing. 

In  card  type  7,  a  six  digit  alphanumeric  identifier  is  read  in  for 
each  message  type  (NMTYP).  This  identifier  will  be  printed  out  in  the 
detail  record  (when  this  output  option  is  called).  It  identifies  the  type  of 
message  being  processed  at  any  given  time. 

One  type  8  card  is  involved  for  each  hour  specified  on  the  type  2 
card,  INMAX  entry.  The  first  datum  on  each  type  8  card  is  the  hour  num¬ 
ber  (IH).  Then,  the  number  of  messages  which  will  arrive  in  the  Action  Of¬ 
ficer's  inbox  in  the  final  15  minutes  of  this  hour  is  indicated  [IGP(IH)] .  The 
number  of  messages  arriving  in  the  Action  Officer's  inbox  randomly  through¬ 
out  the  hour  [IGR(IH)]  is  the  next  entry.  Messages  specified  in  this  category 
may  still,  by  chance,  arrive  in  the  last  quarter  of  the  hour.  The  next  value 
[IUR(IH)]  is  presently  nonfunctional. 

Although  the  number  of  messages  arriving  during  the  hour  is  fixed 
[IGP(IH)]  +  IGR(IH)],  the  priority  and  the  type  of  each  individual  message 
within  an  iteration  is  stochastically  determined.  The  probability  that  any 
given  message  type  is  assigned  is  specified  by  the  variable  FRET(IT,  IH). 

The  probabilities  are  entered  cumulatively  as  IT  goes  from  1  to  7.  For  ex¬ 
ample,  if  .  70,  .  78,  .  82,  and  1.  0  are  entered,  type  1  has  a  probability  of 
.  70,  type  2  has  a  probability  of  .  08,  etc.  The  final  proportion  must  be 
equal  to  1.  0  within  an  hour.  This  method  allows  one  random  number  to 
be  drawn  from  a  uniform  distribution  (i.  e. ,  uniform  between  0.  0  and  1.  0). 
This  one  random  number  is  compared  with  the  type  probabilities  as  IT  goes 
from  1  to  IT.  If  the  random  number  .  74  was  selected,  it  would  be  compared 
with  .  7  and  type  1  would  be  rejected;  then  .  74  would  be  compared  with  type  2, 
and  since  its  cumulative  probability  of  .  78  is  greater  than  .  74,  message 
type  2  would  be  selected. 

Message  priority  is  also  selected  stochastically.  The  variable 
FREP(IP,  IH)  specifies  the  cumulative  probability  of  each  message  priority 
(IP)  within  each  hour  (IH).  The  input  form  is  the  same  as  for  FRET,  de¬ 
scribed  above. 
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Table  2-1 


I nput--llour  Paramet  ers 


Card 

Columns  Format 

Read  or  skip  hour  parameters  (card  type  6) 


ISKIP-  If  equal  to  1  skip  card  type  9 

If  not  equal  to  1,  read  card  types  7  and  8 . 1  1 

Names  of  message  types  (card  type  7) 

NMTYP(1)-Name  of  message  type  1 . . . . . 1-6  A 

NMTYP  (2) -Name  of  message  type  2 . 7-12  A 

NMTYP (3)-Name  of  message  type  3 . 13-18  A 

NMTYP  (4)-Name  of  message  type  4 . 19-24  A 

NMTYP (5)-Name  of  message  type  5 . . . 23-30  A 

NMTYP (6)-Name  of  message  type  6 . . . 31-36  A 

NMTYP (7)-Name  of  message  type  7 . . .  37-42  A 

Messages  per  stimulus  data  (card  type  7,5) 

RMPS (l)-Number  of  messages  expected  per  stimulus  for  message  type  1 . 1-3  R 

RMPS (2) -Number  of  messages  expected  per  stimulus  for  message  type  2 . 6-10  R 

RPMS( 3) -Number  of  messages  expected  per  stimulus  for  message  type  3 . 11-15  R 

RPMS (4)-Number  of  messages  expected  per  stimulus  for  message  type  4 . 16-20  R 

RPMS (5)-Number  of  messages  expected  per  stimulus  for  message  type  5 . 21-25  R 

RPMS (6) -Number  of  messages  expected  per  stimulus  for  message  type  6 . 26-30  R 

RPMS (7) -Number  of  messages  expected  per  stimulus  for  message  type  7 . 31-35  R 


Hour  parameters  (card  type  8) 

One  card  for  each  hour  specified  in  card  type  2  by  IHMAX. 


IH-Hour  number . 1-2  I 

IGP(IH)-Number  of  messages  arriving  in  A0/G3's  inbox  in  the  last  15 

minutes  of  this  hour . 3-4  I 

IGR(IH) -Number  of  messages  arriving  in  A0/G3's  inbox  randomly 

throughout  this  hour . 5-6  I 

IUR(lH)-Non  functional............... . 7-8  1 

FRET(1, IH)-Cumulative  proportional  occurrence  of  message  type  1  -add . 10-14  R 

FRET(2,IH)-Type  2-change . 15-19  R 

FRET ( 3, IH) -Type  3-delete . 20-24  R 

FRET ( 4, IH) -Type  4-query . 25-29  R 

FRET(5,IH)-Type  5-relay . 30-34  R 

FRET(6,IH)-Type  6-SPR . 35-39  R 

FRET ( 7, IH) -Type  7-SRI . 40-44  R 

FREP(1, IH)-Cumulative  proportion  of  message  occurrence  of  priority  type 

1  -  routine  45-49  R 

FREP (2 , IH)-Priority  type  2-priority . 50-54  R 

FREP(3, IH)-Priority  type  3-operational  immediate . 55-59  R 

FREP(4, IH)-Priority  type  4-flash . 60-64  R 

FREP(5,IH)-Priority  type  5-  presidential  interrupt . 65-69  R 

FRER(IH) -Frequency  of  routine  message  arrival  per  hour . 70-74  I 

FREO(IH) -Frequency  of  arrival  of  other  than  routine  messages  per  hour . 75-79  I 
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The  arrival  time  of  the  messages  specified  in  IGR  are  determined 
stochastically.  However,  IGR  is  controlled  by  the  variables  FRER(IH) 
and  FREO(IH).  FRER  is  the  frequency  of  arrival  of  routine  messages  per 
hour,  while  FREO  is  the  frequency  of  arrival  of  other  than  routine  messages 
(i.  e.  ,  higher  priority). 

The  columns  of  card  type  7.  5  indicate  the  mean  number  of  messages 
generated  for  each  stimulus  message  in  the  Action  Officer's  inbox  [RMPS(IT)]. 
A  different  generation  rate  may  be  indicated  for  each  message  type.  The  num¬ 
ber  of  messages  generated  by  IGP  and.  IGR  will  be  compounded  by  RMPS  so 
that  the  number  of  messages  available  for  processing  each  hour  will  be  a  var¬ 
iable  with  a  lower  limit  of  IGP  +  IGR. 

Card  Types  9  and  10 


Card  type  9  allows  the  option  for  skipping  the  error  data  of  card  type 
10.  Table  2-5  shows  the  input  form  for  the  error  data,  as  indicated  by  card 
type  10.  The  errors  produced  in  the  processing  of  a  message  are  stochasti¬ 
cally  determined  using  the  input  error  rates  specified  for  each  type  of  error 
(IE).  Four  types  of  errors  are  considered:  (1)  commission- -too  much  infor¬ 
mation  has  been  supplied,  (2)  abbreviation,  typographic,  or  spacing,  (3)  omis¬ 
sion- -the  lack  of  information  where  information  or  an  entry  should  have  been 
made,  and  (4)  other.  The  type  10  error  data  card  also  contains  the  error 
rate  [ER(IE,  IT)]  for  each  type  of  message  (IT).  Capacity  exists  for  eight 
message  types,  but  only  seven  types  are  used  at  present.  The  error  rates 
indicate  the  average  number  of  errors  per  100  characters  printed  or  typed. 

Of  the  errors  produced,  some  will  be  detected  and  corrected  immediately; 
some  will  perturb  the  simulated  computer  resulting  in  an  error  return,  and 
others  will  pass  through  and  enter  the  computer  data  bank.  The  Action  Of¬ 
ficer's  errors,  which  produce  computer  error  returns,  are  indicated  by  the 
variable  ERPG,  while  the  percentage  of  the  UIOD's  errors  which  produce  er¬ 
ror  returns  is  indicated  by  ERPI.  These  two  variables  (ERPG  and  ERPI) 
are  indicated  in  the  last  two  columns  of  the  error  data  card. 


Card  Types  11,  12,  and  13 

Table  2-6  shows  the  input  formats  for  the  message  length  data.  Card 
type  11  is  the  bypass  option  card.  Card  type  12  contains  the  mean  number 
of  characters  [INC(IT)]  read  in  for  each  message  type,  and  card  type  13  con¬ 
tains  the  standard  deviation  [INS(IT)]  of  this  mean.  Random  numbers  from  a 
normal  distribution  are  used  in  conjunction  with  the  mean  and  standard  devia¬ 
tion  to  determine  the  exact  length  of  each  message  of  the  given  type  as  it  is 
created  and  added  to  the  message  flow. 
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Tabic  2-5 
Input. — Error  Data 


Card 

Columns  Forma t 

Read  or  skip  error  data  (card  type  9) 

ISKIP-  If  equal  to  1  skip  to  card  type  11, 

if  not  equal  to  1,  read  card  type  10 .  1  I 

Error  data  (card  type  10) 


IE-  Type  of  error,  1=  commission,  2=  abbreviation, 

typographical  or  spacing,  3-  omission,  4=  other .  1  1 

ER( IE,1 )-Error  rate  per  100  characters  of  message  type  1 .  2-9  R 

ER( IE,2 ) -Message  type  2 .  10-17  R 

ER(IE,3)-Message  type  3 .  18-25  R 

ER( IE ,4)-Message  type  4 .  26-33  R 

ER(IE,5)-Hessage  type  5 .  34-41  R 

ER(IE,6)-Message  type  6 .  42-49  R 

ER( IE,7)-Message  type  7 .  50-57  R 

ER(IE,8)-Non  functional .  58-65  R 

ERPG-  Percentage  of  G3/A0  errors  which  produce  error  returns. .  66-72  R 

ERPI-  Percentage  of  UI0D  errors  which  produce  error  returns...  73-79  R 


Table  2-6 

Input--Message  Length  Data 


Card 

Columns 


Read  or  skip  message  length  data  (card  type  11) 

ISKIP-  If  equal  to  1,  skip  to  card  type  14 

If  not  equal  to  1,  read  card  types  12  and  13 .  1 

Read  message  length  means  (card  type  12).  Note:  The  variable  INC  is 
explicitly  specified  as  REAL 


INC(l)-  Number  of  characters  in  transformed  message  type  1 .  1-9 

INC(2)-  Message  type  2 .  10-19 

INC(3)-  Message  type  3 .  20-29 

INC(4)-  Message  type  4 .  30-39 

lt.'C(  5 ) -  Message  type  5 .  40-49 

INC(6)-  Message  type  6 .  50-59 

INC(7 )-  Message  type  7 .  60-69 

INC(8)-  Non  functional .  70-79 


Read  message  length  standard  deviations  (card  type  13).  Note:  The 
variable  IN6  is  explicitly  specified  as  REAL. 

INS(l)-  Standard  deviation  of  characters  in  transformed  message 


type  1 .  1-9 

INS(2)-  Message  type  2... . . .  10-19 

INS(3)-  Message  type  3 .  20-29 

INS(4)-  Message  type  4 .  30-39 

INS(5)-  Message  type  5 . 40-49 

IHS(6)-  Message  type  6 .  50-59 

INS(7)-  Message  type  7 . 60-69 

IHS(8)-  Non  functional .  70-79 


Format 


I 


R 

R 

R 

R 

R 

R 

R 

R 


R 

R 

R 

R 

R 

R 

R 

R 
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Card  Types 


14  and  15 


Card  type  14  allows  a  task  analysis  bypass.  The  input  form  for  the 
card  type  15  task  analytic  procedure  is  shown  in  Table  2-7.  The  number  of 
cards  expected  has  been  previously  indicated  by  NTE  on  the  type  1  card.  Each 
task  analysis  card  identifies  the  task  analysis  number  (K),  as  well  as  the  task 
element  number  (I)  being  described.  Five  types  of  tasks  [JTYPE(I,  K )]  maybe 
used.  Type  1  identifies  a  task  which  allows  message  rejection  at  a  probabil¬ 
ity  specified  by  AVPROB(I,  K).  A  rejected  message  will  be  held  unprocessed 
in  the  queue  until  the  next  hour,  at  which  time  it  will  be  resubmitted  for  proc¬ 
essing.  A  type  2  element  is  one  whose  time  refers  to  a  per  character  proc¬ 
essing  time.  This  per  character  time  will  be  combined  with  the  actual  num¬ 
ber  of  characters  in  a  particular  message  to  determine  the  total  processing 
time.  A  type  3  element  is  a  decision  element.  In  a  decision  element,  the 
operator  speed  factor,  precision  factor,  and  stress  level  do  not  affect  the 
outcome.  This  type  task  is  used  when  a  situation  independent  branching  func¬ 
tion  is  incorporated  in  a  task  procedure.  A  similar  feature  is  found  in  the 
type  4  element.  Type  4  identifies  an  equipment  task  whose  performance  is 
independent  of  all  operator  characteristics.  This  task  is  used  where  the 
time  control  aspect  of  the  task  is  determined  by  the  equipment,  e.  g. ,  warm 
up  time,  computer  response  time. 

Task  type  5  is  not  used  at  the  present. 

Task  type  6  is  a  special  type  of  branching  task  which  will  receive 
either  an  ERR  (i.  e.  ,  simulated  error  response,  the  simulated  computer 
will  not  accept  transmission,  try  again)  or  a  CDR  (correct  reception).  The 
number  of  error  returns  is  a  function  of  errors  generated  by  both  the  Action 
Officer  and  the  UIOD  operator  during  the  preparation  and  typing  of  the  message. 
If  an  error  message  is  received,  then  human  decision  time  and  information 
search  time  will  be  computed  and  added  to  the  duration  of  this  element.  If 
no  error  message  data  were  entered  for  a  given  simulation,  then  the  element 
will  simply  cause  the  failure  of  task  sequence  route  to  oe  followed. 

The  criticality  of  the  task  [CRIT(I,  K)]  is  indicated  by  the  entry  of  a  C 
in  column  8  of  card  type  15.  Task  criticality  is  used  in  the  computation  of 
the  overall  effectiveness  measure.  Failure  of  a  critical  task  is  recorded 
and  is  considered  to  be  detrimental  to  mission  effectiveness. 


15 


Tab  If  2-7 


Input --Task  Analytic  Data 


Card 

Column  Format 

Read  or  skip  task  analysis  (card  type  14) 

ISKIP-  If  equal  to  1,  skip  to  card  type  16 . 1  I 

If  not  equal  to  1,  read  card  type  15. 

Task  analysis  (card  type  15) 

One  card  for  each  task  element  specified  by  NTE  in  card  type  2. 


K-  Task  analysis  number . 1-2  I 

I-  Task  element  number  within  this  task  analysis . 3-5  I 


JTYPE (I ,K)-Task  element  type  where  1=  a  task  element  on  which  the 
message  may  be  rejected  with  a  probability  specified  by 
AVPROB(I,K),  2=  a  task  element  in  which  the  number  of 
characters  for  this  message  type  will  be  multiplied  times 
the  stochastically  determined  mean  time  to  produce  the  time 
required  to  transform  the  message,  3=  a  decision  task  element 
where  operator  factors  such  as  speed  [F(M)],  precision  fPREC(M)] 
and  stress  level  [STR(M)]  are  not  allowed  to  affect  the  dura¬ 
tion  or  success  probability  of  the  task  element,  4=  an  equip¬ 
ment  task  element  where  operator  factors  are  considered  and  the 
task  cannot  be  failed,  5=  not  used,  6=  a  special  type  of 
branch  task  element  where  either  a  "COR"  or  "ERR"  response  is 


expected . 7  I 

CRIT(I,K)-  Criticality  of  the  task  element.  C=  critical,  not  C  is  not 

critical . 8  A 

END(I,K)-  Message  processing  segment  ended  by  this  task  element,  if  any . 1C  I 

IJF(I,K)-  The  number  of  the  task  element  which  will  follow  this  one  if 

this  task  element  is  a  failure . 12-14  I 

IJS(I,K)-  The  number  of  the  task  element  which  will  follow  this  one  if 

this  task  element  is  a  success . -.15-17  T 

AVGTM(I  ,K)-Task  element  mean  performance  time . 20-29  R 

SIGMA(I  ,K)-Standard  deviation  of  AVGTM(I,K) . 30-39  R 

AVPR0B(I ,K)-Task  element  success  probability,  the  probability  that  the 

following  task  will  be  IJS(I,K)  and  not  IJF.  Also  the  probabil¬ 
ity  of  message  rejection  when  JTYPE(I,K)=  1 . 40-49 

UETYPE(I,K)-  Undetected  error  type  T=  transform,  not  T=  all  others . 50 

UEP(I,K)  Undetected  error  probability . 51-56 

INTS-  Number  of  personal  interruption  types  to  be  considered  on  this 

task  element.  This  value  determines  the  number  of  interruption 
data  cards  to  be  read  in.  (INTS  4  read  1  additional  card; 

5  £  INTS  <_  9  read  2  cards) . 80  I 


Interruption  data  (separate  card(s)  4  interruptions/card) 

ITYP-  Type  of  interruption,  up  to  four  on  a  card 

PR0B(I ,K, ITYP)-  Probability  of  this  type  of  interruption.. 

-*ITE(I,K,  ITYP)-  Average  duration  of  interrupt . 

AUI(I ,K, ITYP)-  Standard  deviation  of  interruption . 


. 2,22,42,62  I 

..3-8,23-28,43-48,63-68  R 
.9-14,29-34,49-54,69-74  R 
15-20,35-40,55-60,75-80  R 
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Message  processing  time  within  the  model  is  divided  into  mes¬ 
sage  segments.  These  segments  are  based  on  Baker's  (1970)  categoriza¬ 
tion  of  message  handling  functions.  These  time  segments  are  described 
in  the  section  on  model  output.  The  entry  in  column  10  of  each  card  type 
15  indicates  the  time  segment  which  ends  for  a  given  message  when  the 
simulation  of  the  performance  of  the  task  element  being  considered  by  the 
type  15  card  is  completed. 

The  progression  of  an  operator  through  a  task  analytic  sequence 
need  not  be  linear.  The  sequence  to  be  followed  may  be  in  any  order  (with 
the  exception  that  element  1  must  be  first)  and  is  determined  by  whether 
the  current  task  element  is  failed  or  performed  successfully.  If  the  current 
task  is  failed,  the  next  task  to  be  performed  is  indicated  by  IJF(I,  K)  and  if 
the  task  is  performed  successfully,  the  next  task  to  be  performed  is  indi¬ 
cated  by  IJS(I,  K).  Frequently,  the  current  task  should  be  repeated,  in  case 
of  a  failure  [IJF(I,  K)  =  I]  .  Looping  back  to  a  previous  task  (loops  should  be 
written  very  carefully  to  avoid  perpetual  loops)  or  going  on  to  a  special  task 
element  (i.  e.  ,  one  not  performed  except  in  case  of  failure)  are  also  accept¬ 
able  alternatives.  In  the  case  of  an  element  identified  as  type  6,  the  element 
cannot  be  failed  in  the  normal  sense  and  the  failure  sequence  will  be  triggered 
by  an  error  message  logic  which  does  not  involve  the  random  walk  and  the 
vocalic  center  group  concepts  described  later. 

The  sequence  number  in  IJS  or  IJF  (as  applicable)  will  determine  the 
task  element  to  be  performed  next.  A  blank  or  zero  entry  identifies  the  com¬ 
pletion  of  the  task.  A  task  analysis  may  have  any  number  of  completion  points. 

The  durations  for  task  elements  are  taken  from  a  normal  distribution 
with  an  input  mean  of  AVGTM(I,  K)  and  a  standard  deviation  of  SIGMA(I,  K). 
These  times  will  be  varied  stochastically  within  the  model  and  will  tend  to  be 
increased  by  fatigue  and  decreased  by  stress.  The  values  used  for  AVGTM 
may  be  obtained  through  expert  judgment,  actually  timing  operations  in  the 
field,  or  some  standardized  data  bank  of  performance  time.  The  probability 
that  the  task  element  will  be  performed  successfully  is  indicated  by  AVPROB 
(I,  K).  The  probability  of  failure  on  that  task  element  is  therefore  1  minus 
AVPROB.  In  the  case  of  commonly  performed  elements,  success  rates  in 
the  range  .  90  to  .  98  are  most  frequently  used. 

Errors  are  assumed  to  be  either  detected  or  undetected.  Detected 
errors  are  those  which  are  indicated  at  some  point  by  operators  or  by  the 
computer.  Undetected  errors  are  those  that  remain  undetected  and  enter 
the  simulated  computer's  data  bank.  The  only  undetected  error  type  simu¬ 
lated  in  the  MANMOD  is  the  transform  type,  i.  e.  ,  where  information  is  trans¬ 
formed  from  one  form  to  an  another  by  the  operators.  A  transform  element 
is  indicated  by  a  T  in  the  UETYPE(I,  K)  column  of  card  type  15. 
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When  a  transform  element  is  indicated,  the  probability  that  an  un¬ 
detected  error  will  enter  the  data  base  [UEP(I,  K)J  must  also  be  indicated. 
Unless  a  type  T  is  indicated  in  UETYPE,  it  does  not  matter  what  is  in  UEP 
(I,  K).  Undetected  errors  in  the  computer  data  base  lower  the  results  of  the 
computations  of  system  effectiveness. 


Card  Types  16  and  17 

Table  2-8  shows  the  input  format  of  the  effectiveness  correlations 
and  weights.  The  components  of  these  effectiveness  measures  are  described 
in  Siegel,  Wolf,  and  Leahy  (1973a). 

The  final  entry  on  card  type  15,  1NTS,  controls  the  input  of  personal 
interruption  data.  These  interruptions  include  such  considerations  as  personal 
comfort  and  interruptions  from  phone  calls.  Up  to  9  types  of  interruptions  may 
be  considered  for  any  task  element.  A  separate  card  (cards)  is  (are)  employed 
to  describe  this  interruption. 


Table  2-8 

Input — Effectiveness  Component  Data 


Card 

Columns  Format 

Road  or  skip  effectiveness  components  (card  type  16) 

ISKIP-  If  equal  to  1  skip  to  read  card  type  18.  If  not 

equal  to  1  read  card  type  17 .  1  I 

Effectiveness  components  (card  type  17) 


CC12- 

Correlation  between  thoroughness  and  completeness . 

1-4 

R 

CC13- 

Correlation  between  thoroughness  and  responsiveness.... 

5-9 

R 

CC14- 

Correlation  between  thoroughness  and  accuracy . 

10-14 

R 

CC23- 

Correlation  between  completeness  and  responsiveness.... 

15-19 

R 

CC24- 

Correlation  between  completeness  and  accuracy . 

20-24 

R 

CC34- 

Correlation  between  responsiveness  and  accuracy . 

25-29 

R 

W(1  )- 

Relative  weight  of  thoroughness  in  computing 

overall  effectiveness . 

30-34 

R 

W(  2  )- 

Weight  of  completeness . 

35-39 

R 

W(  3 )- 

Weight  of  responsiveness . 

40-44 

R 

W(4)- 

V/eight  of  accuracy . 

45-49 

R 

weights 

must  sum  to  1.0. 
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Card  type  16  is  the  bypass  option  and  card  type  17  contains  the  ef¬ 
fectiveness  correlations  and  weights.  These  are  needed  to  compute  system 
effectiveness  and  have  been  left  as  a  variable  because  it  is  believed  that  these 
values  may  change  over  time.  Values  currently  suggested  for  entry  are: 


Effectiveness  Component 


Suggested  Entry 


CC12 

.  50 

CC1 3 

.  50 

CC14 

.  50 

CC23 

.  50 

CC24 

.  50 

CC34 

.  50 

W(l) 

.  25 

W(2) 

.  25 

W  (3 ) 

.  25 

W(4) 

.  25 

Card  Types  18  through  27 

The  entry  of  error  message  data  is  an  option  which  must  be  speci¬ 
fied  on  the  parameter  card.  Having  specified  the  option,  a  full  set  of  error 
message  data  must  be  entered.  Table  2-9  lists  the  error  message  and  as¬ 
sociated  random  walk  data.  The  first  card  (card  18)  specifies  the  number 
of  error  messages  to  be  read.  This  number  of  error  messages  must  be 
described  in  terms  of  number  of  vocalic  center  groups  (NVGM)  on  the  follow¬ 
ing  card  or  cards.  The  vocalic  center  group  concept  is  described  in  the  body 
of  the  report  of  which  this  user's  manual  forms  an  appendix.  Up  to  40  mes¬ 
sages  may  be  described  on  a  single  computer  card.  If  41  messages  are  spe¬ 
cified,  a  second  card  will  be  read,  but  only  the  first  value  on  that  card  will 
be  entered. 

The  number  of  information  search  options  available  to  the  operator 
is  read  in  next  (card  type  19).  An  information  search  option  is  any  proce¬ 
dure  that  a  simulated  operator  might  follow  in  order  to  determine  the  error 
in  his  message  which  has  produced  computer  generated  error  return.  It  in¬ 
cludes  such  possibilities  as  consulting  reference  materials  and  asking  other 
operators  for  information.  The  number  of  options  specified  determines  the 
number  of  option  data  cards  used.  The  first  option  datum  read  in  is  the  op¬ 
tion  number.  Following  the  option  number,  the  probability  that  this  option 
would  be  selected  (PROBOP)  is  entered.  This  probability  must  be  specified 
as  a  cumulative  proportion.  That  is,  if  options  1,  2,  and  3  possess  respec¬ 
tively  real  probabilities  of  .  20,  .  50,  and  .  30,  the  entry  data  would  be  ex¬ 
pressed  as  .  20,  .  70,  and  1.  0.  The  highest  option  number  available  must 
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Table  2-9 


Input  of  Error  Message  and  Random  Walk  Data 


Card 


Typ= 

Variah le 

Description 

Format 

18 

NE 

Temporary  indexer  for  number  of  error  messages  (NERMSG). 

If  equal  to  zero  no  type  19  cards  will  be  read  in. 

13 

19 

NVGM(NE) 

The  number  of  Vocalic  Center  Groups  for  each  error 
message  will  be  read  in.  Up  to  99  VCG's  may  be 
specified  for  each.  Up  to  40  entries  are  inputted  on 
each  card  up  to  a  maximum  of  100  error  message  descriptors. 

4012 

20 

NOP 

Temporary  indexer  for  the  number  of  information  search 
options  (N0PTI0)  for  tracing  down  responses  to  error 
messages.  If  NOP  is  equal  to  zero  no  type  21  cards  will 
be  read  in.  NOP  determines  the  number  of  type  21  cards 
read  in.  (Maximum  of  9). 

12 

21 

I 

The  information  search  option  on  this  card. 

12 

PR0B0P(1) 

The  probability  (cumulative  as  I  goes  from  1  to  NOP)  that 
option  I  will  be  selected  for  performance. 

FlO. 3 

TIMCOR(I) 

The  mean  time  to  perform  information  search  option  I. 

no. 3 

SDCOR(I) 

The  standard  deviation  of  TIMCOR(I). 

no.  3 

REDAH(I) 

The  ambiguity  reduction  factor  produced  by  this  option. 

F10. 3 

DESC0P(I,3) 

A  prose  description  of  the  option. 

3A6 

22 

I 

Indicator  for  whether  correction  submission  data  is  to  be 
read  in.  If  equals  l,no  type  23  cards  will  be  read  in. 

11 

23 

PROBCR 

The  probability  that  a  change  in  response  to  an  error 
message  will  be  correct. 

F10. 3 

AVCOR 

The  mean  time  required  to  input  and  send  a  change. 

FlO. 3 

SDACR 

The  standard  deviation  of  AVCOR. 

no. 3 

24 

I 

Option  for  reading  in  random  walk  data  (1=  yes).  If  not 
equal  l.thon  card  type  25  is  not  expected. 

11 

2b 

TSTEP 

The  time  required  to  take  each  step  in  the  random  walk, 
whether  left  or  right  or  circular. 

FlO.  3 

PRBP.T 

The  probability  of  moving  right,  or  toward  solution  1 
within  the  one  dimensional  random  walk. 

FlO. 3 

PRBNR 

The  probability  of  moving  left,  or  toward  solution  2 
within  the  random  walk. 

FlO. 3 

26 

I 

Option  for  reading  in  cut  off  points  for  levels  of 
ambiguity  with  regard  to  the  number  of  Vocalic  Center 

Groups.  If  equal  to  1,  no  card  type  27  will  be  expected. 

11 

27 

LEV(IL) 

The  cut  off  points  for  level  of  ambiguity  where  levels 

1  and  5  are  absorbing  states  and  constitute  zero  and 
complete  ambiguity  respectively. 

515 

§ 


Card 

Columns 


1 


1-2, 

3-4  ,etc. 


1-2 

1-2 

3-12 

13-22 

23-32 

33-42 

43-60 

1 

1-10 

11-20 

21-30 

1 

1-10 

11-20 

21-30 


1 

1-5, 

6-10, etc. 
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have  an  expressed  probability  of  1.  0.  All  probabilities  higher  than  1.  0 
are  treated  as  if  they  were  1.  0. 

The  time  required  to  perform  each  option  is  stochastically  com¬ 
puted  from  a  normal  distribution  with  a  mean  of  TIMCOR  and  a  standard 
deviation  of  SDCOR.  It  is  assumed  that  each  information  search  option  has 
some  value  in  helping  the  operator  determine  the  solution  to  the  problem 
'posed  by  the  error  message.  This  value  is  termed  the  ambiguity  reduction 
factor  (REDAM).  Ambiguity  reduction  is  expressed  as  a  proportion  where 
a  value  of  1.  0  describes  an  information  source  which  always  provides  a  solu¬ 
tion,  i.  e. ,  removes  all  ambiguity.  A  value  of  .  50  would  indicate  a  source 
which,  on  the  average,  reduces  the  ambiguity  by  one-half. 

The  final  information  search  descriptor  is  completely  optional.  A 
prose  description  of  the  search  option  up  to  18  characters  in  length  may  be 
included.  This  prose  description  will  be  displayed  to  the  terminal  when  ex¬ 
perimental  control  of  parameters  is  desired  and  will  be  printed  out  with  the 
other  task  information  when  the  detail  message  processing  option  is  called. 

The  next  category  of  information  to  be  entered  is  the  correction  sub¬ 
mission  data  (card  type  22).  First,  an  indicator  of  whether  such  data  should 
be  read  in  is  required.  A  1  in  the  first  column  will  cause  the  computer  pro¬ 
gram  to  bypass  the  inputting  of  correction  submission  data.  By  bypassing,  we 
mean  here  (as  elsewhere)  that  the  section  in  the  program  which  reads  in  such 
data  and  stores  it  in  the  appropriate  place  is  skipped.  The  cards  themselves 
are  not  skipped. 

Correction  submission  data  are  used  when  the  operator  has  found  a 
solution  to  the  error  message  and  proceeds  to  modify  the  original  message. 

The  probability  that  the  solution  will  correct  the  message  to  the  satisfaction 
of  the  computer  is  stored  in  PROBCR.  The  time  to  perform  such  a  modifica¬ 
tion  is  taken  from  a  normal  distribution  of  mean  AVCOR  and  a  standard  devia¬ 
tion  of  SDACR  (card  type  23). 

The  simulation  of  the  decision  making  is  performed  through  the  use  of 
a  random  walk  model.  The  random  walk  simulation  will  result  in  either  find¬ 
ing  a  solution  to  the  problem  posed  by  the  error  message  or  will  result  in  a  de¬ 
cision  of  no  immediate  solution  and  information  search  will  commence.  The 
input  data  required  are  the  time  required  to  take  each  step  within  the  random 
walk  (TSTEP)  and  the  probabilities  of  moving  to  a  solution  (PRBRT)  or  toward 
no  solution  (PRBWR).  These  are  entered  on  card  type  25.  These  probabilities 
need  not  sum  to  1.  0.  The  difference  between  their  sum  and  1.  0  is  taken  to  be 
the  standstill  probability,  i.  e. ,  the  probability  of  moving  neither  towards  or 
away  from  a  solution.  Here,  time  is  spent  in  the  decision  making  process, 
but  no  movement  is  achieved  toward  a  solution. 
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The  starting  point  within  the  random  walk  has  an  effect  on  whether 
or  not  and  how  quickly  a  solution  is  reached.  There  are  five  possible 
starting  points- -locations  1,  2,  3,  4,  and  5.  Location  1  represents  reach¬ 
ing  a  solution,  while  location  5  represents  deciding  that  no  solution  is  im¬ 
mediately  apparent.  The  option  to  read  in  new  cutoff  points  is  triggered 
by  a  blank  card  type  26,  while  a  card  type  26  with  a  1  in  column  1  will  by¬ 
pass  this  option.  The  cutoff  points  (LEV)  are  in  order  from  1  to  5  (card 
type  27),  and  indicate  the  highest  number  of  vocalic  center  groups  which 
an  error  message  may  have  and  still  be  considered  in  that  category.  The 
smallest  number  is  indicated  by  the  highest  number  plus  1  of  the  previous 
category.  For  example,  if  0,  5,  10,  20,  100  were  entered  for  cutoff  points, 
then  no  message  could  have  zero  vocalic  center  groups.  Therefore,  none 
could  start  in  category  1.  A  message  with  six  vocalic  center  groups  would 
be  in  category  3  since  it  has  more  than  5  but  less  than  10  VCG's.  The  cut¬ 
off  points  for  VCG's  should  be  determined  from  a  study  of  the  distribution  of 
the  frequency  of  occurrence  in  the  error  messages  under  consideration.  In 
the  case  of  an  unavailability  of  such  data,  the  data  shown  in  Table  2-10  may 
be  used.  The  Table  2-10  data  were  obtained  from  an  analysis  of  the  vocalic 
center  groups  in  all  current  TOS  error  messages. 

Table  2-10 


Categorization  of  Vocalic  Center  Groups  (VCG's)  in  Current 

TOS  Error  Messages 


Category 


Number  of  VCG's 


1 

2 

3 

4 

5 


<_  4 

>  4  <  7 

>7  <10 

>10  <14 

>  14 


Card  Types  28  and  29 

In  some  versions  of  the  TOS,  only  one  tie  line  is  available  from  the 
computer.  This  tie  line  is  used  alternately  by  the  CRT  terminal  and  the 
printer.  An  incoming  message  of  higher  priority  than  the  current  message 
of  the  UIOD  is  assumed  to  have  precedence  and  to  cause  an  interruption  and 
delay  in  the  processing  of  the  current  message.  (Note:  This  data  is  optional 
and  controlled  by  the  value  of  INTOP  on  the  #2  card.  )  These  incoming  mes¬ 
sages  are  generated  stochastically  with  a  near  frequency  of  FRHR(IH)  per 
hour  (card  type  28).  Also  entered  are  the  mean  and  standard  deviations  of 
the  interruption,  DURIN(IH)  and  SDIN(IH).' 
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The  computer  may  be  accepting  input  from  a  number  of  terminals 
at  the  same  time.  Transmission  delay  will  result,  and  this  effect  is  acti¬ 
vated  by  entering  the  mean  and  standard  deviation  of  the  delays  per  hour, 
DEI.(IH)  and  DELSD(IH).,  as  shown  in  Table  2-11. 


Table  2-11 


Input  of 

Incoming  Message  Interruptions  and  Transmission  Delay 

Data 

Card 

Card 

Variable 

Description 

Columns 

Format 

28 

IH 

Hour  number  (one  for  each  hour) 

15 

1-5 

FRHR(IH) 

Frequency  of  incoming  messages  of  priority 
greater  than  1  for  hour  IH 

F5.0 

6-10 

DURIN(IH) 

Mean  duration  of  incoming  messages  in  hour 

F10.2 

11-20 

SDIN(IH) 

Standard  deviation  of  DURIN(IH) 

F10.2 

21-30 

DEL(IH) 

Mean  duration  of  transmission  to  computer  time 

F10.2 

31-40 

DELSD(IH) 

Standard  deviation  of  DEL(IH) 

F10.2 

41-50 

29 

IREP 

Indicator  to  read  in  more  normal  input  data  from 
card  file  (1=  Yes). 

11 

1 

Card  type  2  9  controls  the  option  to  read  in  part  or  all  of  a  new  simulation 
scenario.  If  a  1  is  entered,  the  program  will  start  again  and  read  in  a  new 
card  type  1. 
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Output 


The  results  of  the  simulation  are  displayed  as  printout.  The  re¬ 
sults  calculations  and  the  output  formats  are  described  in  Chapter  III  of 
this  report.  Provision  is  also  made  for  input  display.  The  various  input 
displays  are  presented  in  Figures  2-1  through  2-4.  Figure  2-1  generally 
contains  information  relative  to  the  scenario  simulated  including  items 
such  as  manning  factors  and  message  input.  Figure  2-2  presents  task  anal¬ 
ytic  information  input  and  the  input  correlations  between  the  components 
of  the  effectiveness  components  and  the  weights  of  each  component.  Figure 
2-3  shows  the  various  input  records  relative  to  the  error  message,  informa¬ 
tion  search,  and  random  walk  input.  Figure  2-4  presents  simular  informa¬ 
tion  relative  to  interruptions  and  transmission  delays. 
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1  1 

_ 3  10 

4  SO 

Figure  2-3.  Error  message  and  related  input  record. 
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Figure  2-4.  Interruption  and  transmission  delay  input  record. 


CHAPTER  III 


OPERATIONS  AND  OUTPUT 


In  order  to  call  up  the  full  integrated  model,  some  type  of  terminal 
is  required.  The  displays  and  procedures  detailed  in  this  section  are  most 
appropriate  for  implementation  on  the  ADS  660  terminal.  However,  almost 
any  other  terminal  possessing  the  appropriate  transmission  rate  may  be 
used. 


To  implement  the  integrated  model,  the  first  step  is  to  call  up  the 
computer  and  wait  until  the  connect  signal  (usually  a  light  appears).  Next, 
a  computer  interface  port  must  be  specified  such  as.-  #ARI04.  A  run  card 
must  appear  next:  @RUN  run  name,  charge  no,  project  id,  10,  100.  The 
run  name  is  completely  arbitrary  and  is  used  only  for  run  identification. 

The  programmer's  last  name  or  initials  are  commonly  used.  A  valid  charge 
number  is  essential.  A  project  identification  of  MANMOD  is  recommended, 
although  not  absolutely  necessary. 

The  project  identification  is  followed  by  an  estimated  computer  run¬ 
ning  time  in  minutes  (a  value  preceded  by  the  letter  S  may  be  used  to  speci¬ 
fy  seconds)  and  then  by  the  maximum  number  of  pages  of  computer  printout. 

In  order  to  execute  the  program,  only  the  statement  @ADD  TRY-  MANMOD 
is  required.  Following  this  instruction,  the  computer  will  respond  with  a 
series  of  READY's  which  refer  to  the  various  files  being  assigned.  After 
all  files  are  ready,  the  program  starts.  First,  the  normal  input  is  read, 
and  then  the  statement. 

APPLIED  PSYCHOLOGICAL  SERVICES  PRESENTS  appears  on  the 
screen.  This  statement  is  followed  by  basic  instructions  for  use. 

After  the  message  is  complete,  depressing  the  new  line  button  (if 
the  conversational  mode  is  being  used)  or  the  XMIT  button  if  the  message 
mode  is  used  will  permit  the  computer  to  go  on  to  the  next  display. 

In  the  next  display,  the  operator  is  asked  to  select  a  data  category 
for  change.  If  no  category  is  selected,  normal  simulation  will  commence. 

If  one  of  the  data  categories  (from  1  to  22)  is  selected,  then  the  next  mes¬ 
sage  will  provide  an  opportunity  to  change  any  of  the  data  forms.  If  the 
number  99  is  selected,  an  index  to  the  available  data  categories  is  present¬ 
ed.  If  any  other  number  is  chosen,  the  program  commits  a  normal  termina¬ 
tion.  This  is  the  preferred  and  optimal  way  to  end  the  program.  Other  meth¬ 
ods  may  provide  problems  for  data  recovery  from  the  normal  output  file. 
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Revised  CASE  Em pi  oymen t 


When  data  change  option  22  is  selected,  data  may  be  read  in  from  the 
revised  CASE  program.  The  data  to  be  read  in  consists  of  the  total  duration 
(cumulative)  and  frequency  of  interruption  at  each  of  the  nodes  (i.  e.  ,  inter¬ 
section  or  choice  points)  preselected  in  the  revised  CASE  model.  Of  these 
nodes,  only  a  few  are  of  interest  for  the  MANMOD  and  these  must  be  iden¬ 
tified.  After  the  appropriate  nodes  (the  correct  nodes  for  the  test  case  are 
16,  38,  and  50)  are  indicated,  the  program  computes  means,  and  these  are 
displayed  on  the  terminal  where  changes  can  be  made  if  the  data  are  unac¬ 
ceptable.  These  changes  are  optional  and  keyed  to  the  hour  number.  If  no 
hour  number  is  indicated,  no  change  will  be  made. 

In  order  to  execute  the  revised  CASE  from  the  terminal,  the  instruc¬ 
tion 


@ADD  TRY-  RCASE 

must  be  used  before  the  MANMOD  implementation  described  above.  When 
all  program  files  are  ready,  the  CRT  will  display  information  concerning 
the  revised  CASE  model  and  ask  for  the  project  number,  title,  and  the  date. 
After  this  information  is  sent,  the  program  will  automatically  write  the  in¬ 
teractive  information  to  the  correct  file.  After  the  CASE  program  has  end¬ 
ed,  the  MANMOD  program  should  be  called  to  integrate  the  data. 

At  the  conclusion  of  the  MANMOD  simulation,  a  brief  summary  dis¬ 
play  appears.  This  summary  may  be  followed,  at.  user  option,  by  detailed 
displays.  To  accomplish  this,  the  hour  number  of  interest  is  entered.  En¬ 
try  of  a  zero  hour  number  returns  the  program  to  normal  operation  and  the 
program  may  be  terminated. 

After  the  program  has  been  terminated,  the  billing  file  should  be 
closed  by  the  instruction  @FIN.  If  the  port  is  to  be  closed  (i.  e. ,  no  other 
users  at  current  time),  then  the  instruction  @@TERM  should  be  entered. 

The  "connect"  light  should  go  out  at  this  time  and  the  phone  should  be  hung 
up. 
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Detailed  Output 


In  order  to  have  the  detailed  simulation  results  printed,  instructions 
may  be  entered  via  CRT  or  batch  terminals. 

In  the  case  of  the  CRT,  the  following  instructions  are  required: 

@  RUN.  .  .  (if  no  run  is  active) 

@  ASG.LP  T 

@  BRKPT  PRINTg/T 

@  DATA,  L  PRTFIL 

@  END 

@  BRKPT  PRINTg 

@  FREE  T 

@  SYM  T,  ARI318 

@  FIN 

The  designation  ARI318  identifies  the  remote  batch  terminal  at  the  Arm}-  Re¬ 
search  Institute  for  the  Behavioral  and  Social  Sciences. 

In  order  to  receive  the  print  from  cards  directly,  the  following  cards 
must  be  punched  and  submitted: 

@  RUN.  .  . 

@  ASG,  A  MANMOD-PRTFIL 

@  DATA,  L  MANMOD*PR TFIL 

@  END 
@  EOF 

In  the  case  that  a  printer  is  not  immediately  available,  printouts  may 
be  directed  to  the  Edgewood  Arsenal  for  mailing  to  the  user.  The  required 
instructions  in  this  case  are: 

@  RUN.  .  . 

@  SUSPEND 

@  DATA,  L  MANMOD*PR  TFIL 
@  END 

@  RESUME,  P 
@  FIN 

The  P  option  following  the  instruction  RESUME  will  cause  an  immedi¬ 
ate  printout  (when  a  printer  is  available)  at  the  U1108  facility  at  the  Edgewood 
Arsenal. 
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Output  Formal 


The  MANMOD  provides  a  variety  of  output  options.  The  sections 
which  follow  describe  this  output  in  detail. 


Detailed  Message  Output 

A  detailed  summary  can  be  produced  for  each  simulated  message 
involved  in  a  simulation  run.  Figure  3-1  shows  a  sample  of  this  printout 
and  presents  the  detailed  processing  data  for  simulated  message  number  1, 
relative  to  the  work  of  simulated  operator  number  3.  In  the  Figure  3-1 
sample,  an  ADD  type  message  was  processed  which  was  in  the  first  position 
("order")  in  the  IOD  queue.  There  was  no  stress,  fatigue,  or  aspiration  in¬ 
fluence  (1.  00  is  the  steady  state  or  no  influence  level).  Note  that  aspiration 
as  used  here  does  not  refer  to  the  level  of  aspiration  but  to  the  effect  of  as¬ 
piration  level  on  current  performance. 

A  CUM.  IDLE  of  344.  68  means  that  this  crewman  has  spent  this 
amount  of  time  (in  seconds)  waiting  for  a  message  in  this  hour.  When  oper¬ 
ator  3  received  the  message,  MESSAGE  ARRIVAL  344.  7,  he  began  to  work 
on  it  immediately  (MESSAGE  START  344.  7). 

Completion  of  the  first  task  analytic  element  took  him  7.  31  seconds 
to  perform,  augmented  cumulative  elapsed  time  to  351.  99,  and  the  perform¬ 
ance  was  successful  (S).  The  first  task  element  was  not  a  special  kind  of 
task  or  a  critical  task,  and  ended  time  segment  5  (this  segment  identifies 
the  end  of  time  to  select  a  message  from  queue).  There  are  sufficient  er¬ 
rors  already  in  the  current  message  to  produce  5  error  returns  and  no  in¬ 
terruptions  occurred  during  this  task. 

The  data  starting  with  TRANSMISSION  DELAY  refer  to  task  element  3 
which  is  a  type  6  task.  Type  6  identifies  a  transmission  to  the  computer.  It 
took  5.  3  seconds  to  transmit  the  message  (due  to  time  sharing  delays  on  the 
line).  An  error  message  level  4  was  returned  which  had  an  ambiguity  lev¬ 
el  (i.  e.  ,  number  of  vocalic  central  groups)  of  12.  In  the  random  walk  simu¬ 
lation  of  information  processing,  only  one  step  was  taken  which  required 
4.  5  seconds.  Absorption  was  reached  at  the  no  solution  exit.  Since  no  im¬ 
mediate  solution  was  apparent  to  the  operator,  he  selected  information 
search  option  3,  which  consists  of  asking  his  neighbor  (i.  e. ,  fellow  IOD 
operator).  This  took  64.  8  seconds  and  reduced  his  ambiguity  level  to  1. 

He  then  produced,  considered,  evaluated  (random  walk),  and  reached  a 
solution  which  took  24  seconds  to  enter  into  the  computer.  The  solution 
was  incorrect.  Due  to  the  nature  of  this  particular  task  analytic  input, 
the  operator  went  on  to  the  next  task.  More  often,  the  task  analysis  would 


32 


I 


c  c  a  e 
o  c  c  o 

•  •  •  • 


z 

G  >- 

—  >■  — 

o 

G  H 

C  K  C 

►4 

LJ 

Lt  *-  UJ 

K 

XXX 

< 

G  CD  G 

G  G 

<  »—  d 

>-n  u 

h- 

luCCUJ 

2 

<  O  h- 

2  C 

G  5  G 

c 

O  I  *-< 

U_»  U 

<■ 

►4 

X  C 

2  Z 

e  r 

ir 

C  3  C 

LaJ  uj 

*-4  liJ  K-f 

_J 

CO 

h  Z  h 

o 

“ 

CO 

_j  •>  Ij 

g  >- 

c  •  c 

K 

K 

co  u  CO¬ 

u 

IL 

L 

•-«  _J 

c 

C  CO  C 

G 

G  < 

z  z 

G 

K.  C  C  C  OC 

O  O  O  lC 

O'  •  •  •  • 

Uj  H 

CL  cf- 

C  K* 


CC 

h  •  li 
if 

CV  vC  CV 


-<  r 

:  c  cv 

\\  K 


f- 

H- 

*->  1 1 

C 

O 

2 

X 

X  •  tu 

u 

c 

C 

g 

c  - 

C  cf  5 

c 

li. 

►~ 

_ ' 

L 

i-  C 

UJ  K 

c. 

2  ~ 

CO 

10  g 

_J 

CO 

x  d 

C  G 

X  K 

u 

CO 

CD  G 

G  G 

CO  CO 

Ij 

_J  X  10 

10  CO  CO 

G 

H  H 

• 

H  1/ 

c 

G  II  C 

Ki 

2  G 

H  G 

X 

X  ’**" 

X 

<  K 

d  10 

X 

c 

c 

c  co  - 

d 

1-  IT 

li.  d 

c 

e 

L  U  • 

K 

G 

c  c 

d 

> 

a  ir 

CV  *  G 

•  <  G  if 

k.  r-  cv 

c. 

»— 

cr  \L 

H  •  C 

•  cr  co  r- 

*-•  K;  a 

K-  L 

•  • 

c  cr 

o  co  • 

•  •  • 

G 

d  2t 

^  vC 

Ll  X 

GLl.CC 

a  o  cv 

•  • 

X  K 

rr  r 

it 

10 

If.  \£ 

1 

a> 

J-  3 

> 

1 

II 

u 

IT 

C  CV. 

c 

c: 

c  c 

1  c 

If 

c 

• 

T3 

o 

3“  it 

X 

r- 

G 

• 

m 

G 

K. 

\C 

01 

c 

Ki  ro 

CJ 

ID 

> 

3- 

it 

h- 

1 

cv 

w 

*-  <■ 

sC 

G’ 

U  II 

a 

X 

0 

i 

«— 

G 

K 

tr 

g 

c 

•“  v£  • 

a  z 

a 

c. 

iT  LX 

c 

aj 

H-  Ll! 

ro  vT  LO 

X 

» 

Ki 

* 

G  O 

IT 

K- 

CJ  ^ 

G 

c 

CO 

h-  D 

•  • 

K 

C/ 

1/ 

C  K 

» 

• 

•  .  • 

|. 

(/ 

C 

c 

lO 

X 

X  ►- 

h-  ^ 

►- 

G 

c. 

G  K 

1 1 

cr 

r-  K 

d 

a 

c 

c 

CO 

c 

c. 

C  h 

X 

L- 

1. 

G 

C 

f 

•- 

c 

c 

C. 

L 

c 

c 

* 

UJ 

G 

>  K 

G 

c 

1- 

h- 

G  G 

0' 

lO 

f- 

_J 

• 

• 

i 

X'  LiJ 

CJ 

•“»  QT 

X 

H 

ir 

co 

O  G 

> 

G 

\ 

CO 

i*j 

c  cv 

co 

I-  G 

c 

G  C 

U 

II 

r-  • 

O 

G  G 

L’ 

*•* 

c 

G 

• 

C'. 

2 

X  >- 

G 

G  H- 

X 

J 

'  ^4 

C 

c 

c. 

c 

c 

0) 

2  H- 

O 

d  co. 

* 

< 

K 

>-  G 

< _ 

K- 

>- 

X  G 

u_ 

G 

»-4 

G 

tt 

.. 

C 

«c 

L 

co 

K- 

C  D 

c 

C 

K 

C 

3 

U  L' 

G 

L.  L' 

K 

G 

c 

-J  G 

h 

C 

cr 

V 

*-<  U  1 

G 

< 

e 

•2P 

o  c 

cr 

c  e 

r ' 

C 

r 

c 

U  U 

b  L 

u 

► 

cr 

x 

C 

C'* 

Tt  ■ 

<  < 

< 

<  < 

Ul 

CT 

x 

o  a  h 

O  _J 

G  G 

G 

G 

u*) 

U4 

cn  co  co 

CO  CO 

r  • 

H  WZ 

G  O 

G 

x 

K. 

-4- 

lT  v£ 

<  a 

X 

G 

HH  G‘ 

• 

O 

G 

c 

cn  co 

CO 

CO  10 

G  C 

c 

II 

G 

r  uj 

CO  T 

cr. 

o 

c: 

f  -T 

K 

• 

G 

2 

• 

UJ  G 

u. 

G  G 

>j  a. 

►■4 

; 

« 

-J  C 

\S  C 

Cl 

G 

d 

C  K 

c 

c 

Z 

^4 

2?.  Z 

X  X 

LJ 

CO  o 

< 

< 

*-*  o 

G  CJ 

f— 

O 

►-* 

5-  IT  >  O'  H 

L  Ll  V 

C  t->  U. 

c  Li.  c  y  ? 

l/1  r  la  i/ih 

y  ►<  y  r  »- 


! 


indicate  that  the  operator  should  repeat  task  element  3  until  the  task  is 
completed  successfully.  The  lower  portion  of  the  printout  indicates  that 
message  1  was  completed  by  operator  3  with  no  transform  errors  but 
with  a  total  of  5  error  returns.  The  message  segment  end  points  were 
0,  .  0,  26.  7,  349.  7,  352.  0,  356.  7,  and  602.  8. 

Hourly  Summary 

Figure  3-2  presents  a  sample  of  the  hourly  summary  which  can  be 
produced  for  each  simulated  hour.  In  the  Figure  3-2  sample,  man  1  com¬ 
pleted  six  messages;  no  messages  were  rejected  or  interrupted;  the  man 
worked  1658.  1  seconds  out  of  the  hour  and  he  waited  for  new  messages  to 
come  in  for  1941.  9  seconds.  No  stress  occurred  during  the  hour,  and  the 
level  of  aspiration  was  .  90.  This  value  is  in  perfect  accordance  with  the 
level  of  performance. 

Man  number  3  completed  five  msssages,  and  one  of  these  was  inter¬ 
rupted.  In  this  case,  the  interruption  caused  the  processing  of  the  inter¬ 
rupted  message  to  run  over  the  hour  summary  point.  The  message  will  be 
considered  in  the  next  hour  summary,  although  man  3's  work  time  in  this 
hour  is  considered  in  the  present  hourly  summary. 

The  average  time  to  process  a  message  was  1772.  7  seconds,  and 
the  overall  effectiveness  in  the  hour  was  .  58.  This  overall  effectiveness 
was  negatively  affected  by  a  very  low  responsiveness  component  (.  10). 
Responsiveness  is  low  in  this  hour  because  all  messages  arrived  at  the 
beginning  of  the  hour  and,  accordingly,  some  were  necessarily  delayed 
in  a  queue  before  they  were  processed.  The  other  components  of  the  ef¬ 
fectiveness  calculation  were  high.  This  indicated  that  once  started,  the 
messages  were  processed  quickly  with  few  errors. 

All  messages  in  this  particular  hour  were  of  type  1.  The  summary 
in  the  lower  portion  of  Figure  3-2  shows  the  average  of  time  spent  in  each 
time  segment  by  message  type. 


Iteration  Summary 

A  brief  summary  is  printed  after  every  iteration.  This  summary 
presents  the  effectiveness  components  and  overall  effectiveness  for  every 
hour  during  the  iteration.  A  sample  of  the  output  is  shown  in  Figure  3-3. 
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Figure  3-2.  Sample  hourly  summary. 
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Figure  3-3.  Sample  iteration  summary. 


Run  Su  mm  ary 

Six  different  run  summaries  are  provided.  These  are: 


manpower  utilization 
time  segment  per  message 
effectiveness  components 
workload  summary 
error  summary 
error  message  processing 


Figure  3-4  presents  a  sample  manpower  utilization  summary.  This 
simulation  considered  only  one  hour.  Accordingly,  the  means  across  hours 
are  the  same  as  the  hourly  data. 

In  hour  1,  man  1  worked  1831  seconds  out  of  the  hour  or  51  per  cent 
of  the  time  (1831/3600  x  100).  He  processed  six  message  units,  where  mes¬ 
sage  units  are  the  part  of  the  message  handling  done  by  any  one  man.  Man  1 
used  305  seconds,  on  the  average,  to  process  these  message  units.  He  was 
never  under  stress  and  showed  a  slightly  increased  level  of  aspiration  (.  901 
versus  .  900)  over  his  original  aspiration  level.  Total  working  times  and 
means  across  all  operators  are  also  provided.  All  operators  worked  43  per 
cent  of  the  time  on  the  average. 

Message  segment  completion  times  are  shown  in  Figure  3-5.  These 
times  represent: 


T1  -  Time  spent  waiting  in  Action  Officer  queue 
T2  -  Time  to  select  a  format  and  fill  it  out 
T3  -  Time  spent  waiting  in  UIOD  queue 
T4  -  Time  spent  entering  message 
T5  -  Time  to  send  message 
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The  mean  time  across  all  time  and  messages  to  send  a  message  in  this  run 
was  1790  seconds.  (Note;  the  different  summaries  provided  do  not  refer  to  the 
same  run.  )  The  time  and  the  proportion  of  the  total  represented  by  this 
time  are  also  shown  in  the  time  segment  summary.  These  time  segment 
data  are  averaged  across  hour,  then  averaged  across  message  type  (only 
one  shown!,  and  then  averaged  across  message  priority  (only  one  shown). 


Effectiveness  Run  Summary 

The  run  summary  also  summarizes  the  effectiveness  indices  (Fig¬ 
ure  3-6).  These  data  represent  means  across  iterations  by  hour  and  then 
means  across  hours  for  the  overall  measure. 


Workload  Summary 

Figure  3-7  presents  the  workload  summary  format.  The  left  side, 
backlog  and  messages  delivered  represent  input  values,  while  the  right  side 
shows  actual  processing  rate  averages. 


Error  Summary 

Figure  3-8  presents  a  sample  of  the  error  summary.  This  output 
summarizes  errors  by  hour  and  by  error  type.  Also  shown  are  the  average 
number  of  error  returns  per  message  and  the  average  information  loss. 


Error  Message  Summary 

The  error  message  summary  is  a  new  summary,  not  found  in  previ¬ 
ous  versions  of  the  MANMOD.  These  data  represent  the  mean  time  per  hour 
per  man  spent  in  responding  to  and  processing  error  messages.  In  the  sam¬ 
ple  output  shown  in  Figure  3-9,  man  3  is  the  only  IOD  and  hour  1  was  the 
only  hour  simulated.  During  this  simulation  a  mean  time  of  645.  2  seconds 
was  spent  as  a  result  of  error  messages. 
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Figure  3-6.  Sample  effectiveness  run  summary. 
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Fugure  3-7.  Sample  workload  run  summary. 
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Figure  3-8.  Sample  error  run  summary. 
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Figure  3-9.  Sample  error  message  run  summary. 
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APPENDIX  A 


Glossary 


GLOSSARY 


-A- 

A — Temporary  variable  used  when  arithmetic  calculation.:-  are  male  wit:.  a:, 
integer  variable. 

ACUMTC( IH ,M )  — Accumulated  time  spent  on  error  message  tor  run  .  ..rr: v  . 

ADI(  I  ,K,ITYF)  —  Standard  deviation  of  AITE,  the  duration  o:  task  o  1  : 

in  t errup t ions . 

AHT — Average  handling  time  for  a  message.  Measured  from  when,  a  message  is 

selected  by  an  action  officer  to  when  the  message  is  sent  :v  the  '.'I  of. 

A I TE ( T , K , ITYP ) — Mean  duration  of  task  element. 

AM — Mean  number  for  poisson  distribution. 

AO--Aetion  officer  (not  FORTRAN). 

AQT — Average  queue  time  for  a  message.  Measured  from  when  a  message  arrives  in  the 
action  officer's  inbox  to  when  he  selects  it  tor  processing. 

ASP(M) — The  aspiration  level  for  each  man.  An  aspiration  of  1.0  represents 

striving  for  perfection.  An  aspiration  level  of  .0  lias  been  t ound 
appropriate  in  many  situations. 

ASS(M)--Mean  final  aspiration  level. 

ATPM--Average  time  per  message  processing. 

AVAIL(M)--Availability  indicator  for  each  crewman,  i-  availability. 

AVC0R--The  average  time  required  to  correct  a  message  which  produced  an  error 
message. 

AVGTM( I ,K)--Average  task  element  pert ormance  time. 

AVPR0B(  I  ,K.)--Task  element  success  probability.  That  is,  the  probability  that  the 
following  task  will  be  IJS  and  not  UP.  Also  the  probability  oi  a 
message  rejection  when  JTYPE=  1. 


45 


-B- 


F  —  T* *17.;  firary  variable  used  when  calculations  crust  be  made  using  an 
v ar iatie . 

BK  I.-'- -Number  of  messages  in  A0/G3’s  inbox  of  the  beginning  of  the  s 


-C- 

CCl?--7he  average  correlation  between  the  effectiveness  measures  thoroughness 
and  completeness. 

CC1 3--The  average  correlation  between  the  or: ectiveness  measures  thoroughness  and 
respons i veness . 

CC14--The  average  correlation  between  the  e:  f ectiveness  measures  thoroughness  and 
accuracy . 

CC23--The  average  correlation  between  the  effectiveness  measures  completeness  and 
responsiveness . 

CC24--The  average  correlation  between  the  effectiveness  measures  completeness  and 
accuracy. 

CC34--The  average  correlation  between  the  effectiveness  measures  responsiveness  and 
accuracy . 

CEC( IH, I OP)--Accumulat i ve  effectiveness  measures  for  run  summary. 

CFA( IH,M )--Cumulative  final  aspiration  level  for  run  summary. 

CFS(IH,M)--Cumulative  t inal  stress  level  for  run  summary. 

CH(IS) — Cumulative  segment  completion  times. 

CHAR( 37 )--The  array  in  which  characters  are  stored.  In  the  order  1,  2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 
0,  blank.  A,  b,c,d,p,f,g,h,I,J,K,L,M,N,0,P,Q,R,S,T,U,V,W,2',Y,Z. 

CIDH(IH,M)--  Cumulative  time  idle  for  run  summary. 

CMSG--Cumulat ive  message  number.  A  unique  number  (within  iterations)  assigned 
to  each  message  when  it  is  created.  Explicity  specified  as  REAL. 

CMSGNO(MSCi ,3  )--The  cumulative  message  number  of  each  message  within  the  queues. 

CMTG( IH,M)--Time  spent  on  message  processing  per  man  per  hour. 

C0MMNS(5) — Column  means  within  chained  runs. 

CP( IP ,  IS  )--Iterat ion  mean  performance  time  per  priority  per  segment. 

CRTT( I ,K)--Crit icality  of  the  task  element,  C=  critical. 
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CT(IT,IS)  —  Iteration  total  time  per  segment  tot  message  tv;*.. 

CT'".H(  IH,  IS  ) — Cumulative  segment  time  :  v  i:  . 

CTSP(  IP,  IS)  —  -iumulat  ive  time  segments  iy  measure  iiieiity  iara  t  or  run  amt. 
CTST( I T , I S ) — Cumulative  time  segments  :  v  rtaje.  '  y;  e  la*  a  :  o:  :a::  .-ammary . 
,''TWH(  IH,M) —  Cumulative  time  worked  tot  ran  .summary . 

-D- 

D — Dummy  indexer  used  for  glossary  reference  to  matrix. 

!>EL(  IH) — Mean  transmission  to  computer  delay. 

DEL3D(  Iil ) — Standard  deviation  oi  transmission  to  eomput  •-!  t  i zs  . 

DE  SC  OP ( NOP , 3 ) — A  prose  description  up  to  18  characters  in  length  tor  each  i 
tion  search  option. 

DURIN(IH)--Mean  duration  of  interruption  from  incoming  message;:. 

-E- 

EC( IC) — The  value  of  each  effectiveness  component. 

EIT--Overall  or  composite  effectiveness. 

END( I ,K) — Message  processing  segment,  if  any,  ended  bv  this  task  element. 
ENDHR--End  of  the  hour  time. 

ER( IE , IT )--Error  rate  per  100  characters  for  each  type  of  error  -IE-  and  ea 
type  of  message,  IT. 

ERP( IE) — Percentage  of  errors  which  will  cause  computer  error  messages. 

ERPO — Percentage  of  A0/G3  errors  which  will  cause  omputer  error  messages. 
ERPI--Percentage  of  UIOD  errors  which  will  cause  computer  error  messages. 
ERSUMT( IT , IOP )--Error  sums  within  chained  runs. 

F,XASP(M)--Aspiration  level  per  man  in  run  summary. 

EXASPH( IH,M)--Aspiration  level,  run  summary. 

EXTPM(M)--Time  per  message,  run  summary. 

EXTPMH( IH,M)--Time  per  message,  run  summary. 
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-F- 


F(M) — The  speed  factor  o:  each  man.  An  average  man  would  he  I.  -  A  :  <i.-t  mar. 
would  be  .8  and  a  slow  nan  would  fo  1.1. 

FREO(  IH)  —  Frequency  of  arrival  o:  other  than  routine  isensajee  per  hour.  Not 

number  of  messages  but  the  number  ot  times  during  the  hou:  at  which 
messages  might  arrive. 

FREP(  IP,1H) — The  cumulative  proportional  occurrence  of  message  : ri.rity  -If-  as 
IP  goes  from  1  to  5  during  hour  IH.  The  highest  used  :  Gritv  within 
each  hour  must  have  a  proportion  os  1.0. 

FRi;K( IH)--Frequencey  of  arrival  of  routine  messages  per  hour.  Not  the  number  or 
messages  but  the  number  of  times  during  the  hour  at  which  messages 
might  arrive. 

FKET( IT , IH )--Tho  cumulative  proportional  occurence  of  message  IT  as  IT  goes  from 


1  to  1TMAX  during  hour  IH.  For  example  FRET  (1-7,  1)  might  be  .1,  .23, 
.25,  .48,  .73,  .84,  1.00.  Used  in  random  calculation  of  actual 
message  types  in  any  given  simulation  hour . 

FRHR( IH) — Frequency  of  interruptions  from  incoming  messages  per  hour. 

-G- 


GMEANS — Grand  means  within  chained  runs. 
GTSMNS--Grand  total  means  within  chained  runs. 


-H- 

HROVER--Indicator  for  hour  completion. 

-I- 

1--Task  element  number.  Also  tempiorary  index. 

IATA( J , IT )--Task  analysis  to  be  used  for  each  operator  type,  J  and  for  each 
message  -  IT. 

IBLKl--Indicator  within  chained  runs. 
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ICE- -Temporary  counter  for  number'  cf  . 

I-  'MAIN — Shit  f  number  for  this  run  i:  chaining  opt  ion  is  ;■  in  r  u*  i  i :  .-ui  : 

be  set  to  zero  if  no  chaining  is  dealt ed. 

ibAY — Day  of  mission  simulation.  bsoj  in  comp u tat  ion  'a- 

I;T.;:T(  18)--A  run  description  or  header  o;  72  characters  pr  inted  c: 

each  page  of  printout. 

I D L ( IH,M) —  The  amount  oi  idle  time  for  each  man  in  each  hour. 

IE — Crror  type,  1=  commission,  2=  typographic  (includes  abbreviat i on  and  spacing  * , 
3=  omission,  4=  other. 

iKND--Option  to  terminate  program  (when-  1). 

IEK--Time  segment  it. dicat  or  point. 

IFTE(MSG,J) — Indicator  i or  message  interrupted  by  the  end  of  tire  hour. 
IFTET--Temporary  storage  for  IFTK. 

IGP(IH) — Number  of  messages  arriving  A0/G3's  inbox  in  the  last.  If  minute  ;  ot 
hour  IH. 

IGR(IH)  —  Number  of  messages  arriving  in  A0/G3's  inbox  randomly  throughout  this 
hour. 

lH--Hour  number. 

IHH — Index  for  hour. 

IHMAX--Number  of  hours  simulated  per  iteration. 

I I - -Temporary  indexer. 

IJF( I ,K)--The  number  of  the  task  element  to  be  performed  next  it  the  current 
task  element  is  failed. 

IJS(I ,K) — The  number  of  the  task  element  to  be  performed  next  ii  the  cut  rent 
task  element  is  performed  successfully. 

INC( IT) — (REAL]  Mean  number  of  characters  in  the  final  I orin  ot  each  message  type, 
IT. 

INFHR( IH )--Inf ormat ion  lost  per  hour. 
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INI'  JL>(OMdG ) — Information  loss  in  current  message. 

INS( IT ) — | REAL]  Standard  deviation  of  number  o:  characters  per  message  type, 
INC(IT). 

I NT(M)- -Number  of  error  returns  remaining  in  hour  interrupted  message  data. 

1NT0P — Option  tor  card  input  of  interruption  and  transmission  delay. 

INTS--Total  number  of  interruptions  to  be  run  in  a  task  element. 

INTRF’T(M)--Interruption  indicator,  1=  an  incomplete  message  from  previous  hour 
must  be  completed  before  either  messages  are  selected. 


IOP--Option  code. 


IP — Message  priority  number  where,  1=  routine,  2=  priority,  3=  operational 
immediate,  4=  flash,  5=  presidential  interrupt. 

IFAGE--Page  number  of  printout. 

IPD--P.andom  number  from  a  poisson  distribution. 

IPRI (CMSG)--Message  priority. 

IPTl--Pointer  for  random  access  file  1. 

IPT2--Pointer  for  random  access  file  2. 

IPT3--Pointer  for  random  access  file  3. 

IPT4--Pointer  for  random  access  file  4, 

IPT5 — Pointer  for  random  access  file  5. 

IPT6--Pointer  for  random  access  file  6. 

IRLP--Indicator  for  sequential  runs,  1=  real  data  for  new  run,  blank-  terminate 
program. 

IRESHf IOP , 1H )--Informa t ion  lost  (IOP=  6)  number  of  error  returns  (IOP=  5)  tasks 
performed  per  hour  (IOP=  7),  IOP  1  to  4  accumulate  errors  per 
error  type. 

IREST( IOP , IT)--Inf ormat ion  lost  (IOP=  6),  number  or  error  return  (IOP=  5),  tasks 
performed  (IOP=  7)  per  message  type.  IOP  1-4  accumulate. number  of 
errors  per  error  type. 

IS- -Time  segment  for  message  processing. 

ISAM--Output  file  for  SAMTOS  data. 
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ISEG--Time  segment,  l=time  of  arrival  in  A0/G3's  queue  [TARIVfMSG , i ) J ,  2=  time 

A0/G3  begins  message  processing,  3=  time  A0/G3  selects  format,  4=  time 
message  arrives  in  UIOD's  queue,  5=  time  UIOD  requests  format,  6=  time 
UIOD  sends  message  successfully,  7=  time  UIOD  finishes  processing 
message. 

ISKIP — Used  in  data  input  to  skip  reading  various  types  or  data.  Used  when  mak  Ing 
multiple  batch  runs  where  only  a  tew  variables  are  changed.  The  data 
inputted  in  previous  runs  will  be  used  unless  new  data  is  read  in. 

ISTKNT( IP )--The  weights  per  message  priority  used  in  computing  operator  stress. 

IT--Message  type,  1=  add  data,  2=  change  data,  3=  delete  data,  4=  query,  5=  relay, 
special,  process  request,  1-  s : and ing  request  for  information. 

ITEM--Temporary  storage  for  (MSGN0(I,J). 

ITYMAX--Maximum  number  of  interruption  types  per  task  element. 

I7YF- -Interrupt  ion  type. 


lUR(IH)— Not  used. 


-J- 

J--0perator  type,  1-  action  officer,  2=  UIOD. 

JE-- Index  for  type  of  message  and  other  purposes. 

JJ--Temporary  index  for  operator  type. 

JTYPE(I ,K)--Task  element  type  for  element  I  of  task  analysis  K.  Allowable  types 

are,  1=  a  task  element  allows  the  message  to  be  rejected  with  a  probability 
of  AVPR0B(I,K),  2=  task  element  in  which  the  number  of  characters  for  this 
message  type  will  be  multiplied  times  the  stochastically  determined  mean 
time  to  produce  the  time  required  to  transform  the  messages,  3=  a 
decision  task  element  where  operator  factors  such  as  speed  -  F(M),  precision- 
PREC(M),  and  stress  level  -  STR(M)  are  not  allowed  to  affect  the  duration 
or  success  probability  of  the  task  element,  4=  an  equipment  task  element 
where  operator  factors  are  not  considered  and  the  task  can  not  be  failed, 

5=  not  used,  6=  a  branch  task  in  which  a  computer  error  message  causes  a 
branch  back  to  the  message  correction  input  task  element. 
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-K- 

K--Task  analysis  number. 

KINKS- -Number  of  messages  interrupted  for  hourly  processing. 

KK- -Temp>orary  index  for  message  queue  and  others. 

-L- 

LDONE--Countor  for  crew  who  have  completed  the  working  hour. 

LENTH(MSG, J )--Number  of  characters  in  message. 

LENTHT- -Temporary  storage  for  LENTH. 

LEV ( I L ) --Cut  off  points  for  levels  of  ambiguity.  Expressing  maximum  number  of 

vocalic  central  groups  and  used  for  determining  starting  point  within 
the  random  walk  decision  making  model. 

LI NE--Counter  for  line  of  print  written  for  chained  tuns. 

L0GBAC( IH ,J ) --Number  of  messages  carried  over  from  previous  hour. 

-M- 

M--Man  number.  Each  man  involved  in  a  simulation  is  assigned  a  unique  number. 
MAN(MSG,J )--Man  who  is  processing  message. 

MANT--Temporary  storage  for  MAN. 

MCL(M)--Messages  completed  per  man  for  run  summary. 

MCUM--Cumulative  message  number  of  current  message. 

MEN(D)--Number  of  men,  D=  1  for  action  officers  (including  G3),  D=  2  for  UIOD's, 
D=  3  for  total  men  in  system. 

MENS — Total  number  of  men  in  system. 

MESS(LA,J)--Messages  for  performance  this  hour,  LA=  1  total  for  hour;  LA=  2 

messages  remaining  for  hour.  This  category  is  decreased  as  messages 
are  performed. 

MGCP( IH,M)--Cumulative  messages  completed. 

MINT--Man  interrupted  bv  hour  statistics. 

MQCPL( IH,M)--Messages  completed  per  hour  per  man. 

MQINT(IH,J) — Number  of  messages  in  the  queue  interrupted  each  hour. 
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MQREJ(IH,M) — Messages  rejected  per  hen  :  e:  ::.un. 

MSCPL( M )  — Messages  completed  per  man. 

MSEL — Man  initials  selected  to  per:  01  r.  next  task. 

MSG — Message  position  within  the  queue. 

MSGER--Error  message  number. 

MSGIRP ( M ) --Message  number  or  interrupted  message,  if  any,  tor  this  crewman. 
MSGNO — Number  of  messages  being  processed. 

MSGS — Message  number  index. 

MSGT- -Temporary  storage  for  CMSGNO. 

MSREJ(M)--Number  of  messages  rejected  per  man. 

MUCOMP( IH, J )  —  Cumulative  messages  completed  per  hour,  per  queue  for  run  summary 
MUINT( IH, J ) — Cumulative  messages  interrupted  per  hour  per  queue  for  run  summary 
MUREJ( IH , J )--Cumulat Lve  messages  rejected  per  hour  per  queue. 

-N- 

NAME(M)--The  name  or  title  of  each  man  (up  to  four  characters). 

NCP(IP)-  Number  of  tasks  performed  of  each  priority. 

NCT(IT)--Number  of  times  tasks  types  are  completed  in  current  iterations. 
NCTSH(IH) — Number  of  messages  performed  per  hour  for  run  summary. 

NCTSP( IP )--Number  of  task  performance  by  priority  data  for  run  summary. 
NCTST(IT) — Number  of  times  task  types  completed  across  all  iterations. 

NE  —  Indexer  for  number  of  error  messages.  Used  in  input. 

NER(MSG, J)--Number  of  error  returns. 

NERROP — Option  for  card  input  of  error  message. 

NERT — Temporary  storage  fir  NER. 
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NOEAI I.( M )--Humber  of  task  element  failures  in  an  hour. 

NOMSG--Cumuldt ive  priority  weight  of  messages  in  queue. 

NOMSGS--Number  of  messages  with  a  priority  greater  than  routine  which  have 
arrived . 

NOP  —  Indexer  for  number  of  information  search  options  u.;ed  in  input. 

NOPTIO--Number  of  information  search  options. 

NOSUC(M)--Number  of  task  element  successes  in  an  hour. 

NR--Index  for  information  search  op>tions. 

NSHF — Current  iteration  number. 

NSHIFT--Total  number  of  iterations  to  be  performed. 

NSOL- -Out  come  fx'om  random  walk,  1-  solution,  2-  no  solution. 

NSTEPS--Number  of  steps  taken  within  the  random  work  until  an  absorbing  state  is 
reached , 

NTE--Number  of  task  elements,  total  across  all  task  analyses.  OseJ  in  data  input. 
NTMT( IT )--Number  of  tasks  performed  by  type. 

NUET--Temporary  storage  for  TNUE. 

NVG--Number  of  vocalic  control  groups. 

NVGM(NE)--Number  of  vocalic  control  groups  for  each  error  message. 

Nl--Temporary  index. 

N2--Temporary  index. 

N3- -Temporary  index. 

N 3- -Temporary  index. 


-0- 

ORO(D)--Output  recording  option.  A  value  of  1  exercises  the  option,  D=  1  for  print 
input  data,  D=  2  for  hourly  message  queue,  D=  3  not  used,  D=  4  for 
detail  task  element  processing,  D=  5  for  message,  D=  7  for  experimenter 
change  of  input  data,  D=  8  or  9  not  used. 
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OUT  ( Msr, ,  J )  -  -Outcome  i  or  this  message ,  C=  completed,  1=  interrui 
blank =  ready  i or  processing  when  time  of  arrival  see 


■c  t . 


OUTT- -Temporary  storage  tor'  O'.’i . 


-P- 

PAFA — Face  adjustment  factor  for  aspiration  level. 

PAFW--Pace  adjustment  factor  for  work  fatigue. 

PASP(M) — Permanent  or  initial  aspiration  level  for  each  crewman.  Used  for  reset ing 
tiie  aspiration  level  at  the  beginning  of  each  iteration. 

PERI'(M) — The  performance  level  of  K.  PERF(M)=  NOSK'(M)/(N"'f" AM  )  +  MOPAI h( M ) . 

PRBRT--The  probability  of  moving  closer  to  a  solution  within  the  random  walk. 

PRBWR--The  probability  of  moving  closer  to  a  decision  of  no  solution  within  the 
random  walk. 

PRIOR(MSU,J  )--Message  priority. 

PRIORI- -Temporary  storage  for  message  priority. 

PROS — Temporary ,  adjusted,  task  element  success  probability. 

PROBI ( I ,K , TTYP ) --Probability  of  occurrence  of  task  element  interruption. 

PROBOP(NOP)— Probability  (cumulative)  that  each  information  search  option  will  be 
selected  for  performance. 

PROBCR--The  probability  that  the  solution  entered  to  answer  the  error  message  will 
be  correct. 

PROP- -Temporary  variable  used  for  numerous  proportions. 

PRP( IS )--Propor t ion  of  message  handling  time  spent  in  each  segment. 

PUL--Probabili ty  of  a  low  importance  undetected  error  getting  through  to  the 
Central  computer  data  store. 

PUS--Probability  of  a  significant  error  undetected  error  getting  through  to  the 
computer  data  store. 
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-R- 


Rp —  I’  seudo  random  number  from  a  unii  orm  di;;t  rlhvit  ion.  Moan 
by  input,  data. 

REDAM(NOP) —  The  ambiguity  reduction  factor  for  each  in: or mu 

RM!’ b(  IT )- -The  mean  number  ot  messages  produced  :or  each  A  \ 

t  V  f  '  • 

RY — Pseudo  random  number  from  a  uniform  distribution  be  twee: 

-S- 

SDACR — The  standard  deviation  of  the  time  required  to  correct  a  message. 

SDCOR(  NOP ) — Standard  deviation  of  time  required  to  perform  each  in:  .a  mat  to:,  ova:  ch 
opt  ion . 

SDIN(1,K)  —  Standard  deviation  of  each  inter  r  u;  t  ion  t  ire-  iron;  ituvr.  m--, 

SEGS  (Ci-'idn , I SEG ) — Time  at  which  each  message  segment  is  complete:. 

SF--Stress  factor. 

SHF'TOV--Sh  if  t  completed  indicator. 

Sir--Success  or  fail  indicator,  S=  success,  : -  fail. 

SIGMA  (I, K)  —  Standard  deviation  of  the  mean  task  element  performance  t  :n>-  -  AV  i 

SRS(M)--Average  final  stress  per  man. 

SKTA--System  average  response  time  to  an  inquiry. 

SRTS- -Standard  deviation  of  the  system  response  time  to  an  inquiry. 

ST--Starting  time  for  message  processing. 

START(M )--Actual  starting  time  for  message  which  was  interrupted  by  hour  and 
processing. 

STR(M  )--Current  crewman  stress  level. 

STRM(M)--The  stress  threshold  for  each  man.  This  threshold  is  expressed  as  number 
of  messages  in  the  queue  allocated  to  this  man.  A  stress  threshold  of 
10.0  would  produce  a  maximum  facilitory  stress  effect  when  10  routine 
messages  were  awaiting  handling.  Higher  priority  messages  are  weighted 
to  proportionally  more  stress  producing 


56 


-T- 


TARIV(MGG,.J ) — Time  oi  message  arrival  in  queue . 

TARIVT — Temporary  :>t  orage  for  TAR  IV . 

TCORER — Total  time  ro  quirt'd  to  respond  to  error  message. 


TIE1( MSG 

,M>- 

-Tot al 

number 

of 

undetected 

errors  of 

type  1 . 

TIE ?( MSG 

,H)- 

-Total 

number 

of 

undetected 

errors  oi 

type  1. 

TIES (MSG 

»M  )- 

-Total 

number 

oi 

undetected 

errors  oi 

type  1 • 

T IL4 ( MSG 

»M )- 

-Total 

number 

ot 

undetected 

errors  ot 

type  4. 

TIMCS'R(NOP)- 

-Averap 

;e  time 

to 

per form  ini 

"ormatlon  : 

ioareh  op 

TIME — Task  element  performance  time. 

TLEN — Intermediate  value  in  the  computation  o:  message  length. 

TMTDI, --Average  idle  time. 

TMI(M)--Mean  idle  time. 

TMINCR — Time  requ : red  to  input  an  answer  to  error  message. 

TMOOMP — Total  time  required  within  random  walk  for  an  absorbing  state  to  t 
reached. 

TMT( IT, IS )--Message  segment  times  by  type. 

TNUE ( MSG , J )--Total  number  of  undetected  errors  in  a  message. 

TMRSP--Time  to  perform  information  search  option. 

TPM--Time  per  message. 

TPMC(M)--Time  per  message  per  man. 

TRDEL--Transmission  delay  time. 

TSMNSP--Total  sum  of  means  per  priority  in  chained  runs. 

TSMNST--Total  sum  of  means  per  message  type  in  chained  runs. 

TSTEP--The  time  required  to  take  each  step  in  the  random  walk. 

TW( IH,M )--Amount  of  time  ( seconds )  worked  by  each  crewman  dur  ing  each  hour' 
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of  an  undetected 
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-  *  1  " 

t  ran 

s  1  er . 

UI07- 

-I  U; 

(‘i  •:  i:i 

i  n  p  u  *  /  on 

.  ,  . . . 

i-  viev  K 

nor  r 

0R7RAN ) . 

-V- 


V--Basic  execution  r 


VCfi — Vocalic  central  trouj  ;  ■'  :•  i'KAN  ) . 

-W- 

W(IC) — The  relative  weight  o!  each  ett’ec1 ivvness  component  in  computing  overall 
ef  1  ec  t  i  veriest; . 

WOK ( M ) - -Moan  time  worked. 


-X- 

X-  -Temporary  storage  for  ICHAIN. 

XI - -Mean  backlog  per  hour  in  AO  queue. 
X2--Mean  backlog  for  hour  in  IJIOD  queue. 
X3--Mean  messages  completed  by  AO's. 
X4--Mean  messages  completed  by  AIOD's. 
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X5 — Mean  number  of  messages  rejected  by  AO's. 
X6 — Mean  number  01  messages  rejected  by  UIOD. 


X7- 

-Mean 

rrumi  or  of  messages 

interrupted  bv 

AO's. 

X8- 

-Mean 

number  of  messages 

interrupted  by 

UIOD's 

-Y- 

Y--Number  used  to  initialize  the  random  number  generator.  An  eight  digit  posit iv 
odd  octal  number  must  be  used.  This  number  should  be  changed  between 
runs  since  the  value,  it  repeated,  will  produce  the  same  string  of 
pseudo  random  numbers. 

-Z- 

Z(M )--Current  time  (seconds)  for  each  crewman. 

ZA--Adjusted  task  element  success  probability  when  stress  level  exceeds  the  stres 
threshold . 

ZIF--5tross  function  for  execution  time. 

ZIH--IH  minus  1  in  seconds. 

ZTEST--lest  value  to  determine  which  man  is  most  available  for  message  processing 
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APPENDIX  B 


Program  Listing 


t  ni  - 


i,  1 


t  * 

_2_* 

4* 

S* 

G* 

7  + 
o  ♦ 

q* 
i  n* 
.11*  . 
i  ?* 
i  3* 
i't*  . 

1  s* 

1  S* 
17* 

1  0* 
i  q* 

?o* 

?t* 

72* 

2.7* 

74* 

?F* 

76* 

77* 

PR* 

pq* 

70* 

7  I  * 
.7?  * 
77* 
74* 


SIIJpOUTTNE  AFnTRE 

C_  _ CALCULATES  ASPIRATION  ANO  Refi  'LTIMG  nACF  A1"*  JUFTHENT 

C  FACTOR  FOR  tuts  '«AM 

IMCL'JOE  COVRLK 
pAFa  =  1. 

PFRe(m)  =  A spry) 

C  CALCULATE  nqrPFKjT  ofocoP'-'AMCF  LE'7rL 

A  =  NOSI  1C  (  M) 

B  =  MOF  AIL ( M) 

IF  (  (  A  +  B)  .  IE .  T.)  BO  TO  pno 
PERc(M)  =  a / ( A  +  n ) 

C  A 10  '■HAMRE  IF  nrocor-vA-'lRF  R0ilRM|_Y  Equals  a^ptPaTTON  I  FVFI 

I F  (  APS(ASP(M)  -  pEPF  ( M )  )  ,|.F.  .02)  GO  TO  200 

C  IF  PERFORMANCE  IS  LOW  AMO  STPrSS  IS  LnW 

IF  (pERF(m)  .BE.  ASP(M)  .OR.  STP(M)  .RE.  STPM(M))  GO  To  10O 
PAFa  =  1 .-.4*< AFp(M)-PFRF(M) ) 

GO  TO  200 

C  IF  PERFORMANCE  JS  HIGH  AMO  FTPESF  IS  LOW 

mo  IF  (DFRF(M)  .LT.  ASP(N)  .OR.  STP(w)  .BE.  StRw ( M  >  )  GO  To  lln 
CALL  RANDU(RYft) 

ASP(M)  =  ASF ('*)  +  .l*(pERP(vi)-»5n(vi)  )*RY 
GO  TO  200 

C  IF  PERFORMANCE  IS  LOW  Anjo  STptrSS  IS  HIGH 

110  IF  (PFRF(v)  .BE.  ASP  ( vi )  .OR.  FTP  ( M )  ,l.T.  STRM(y))  Go  To  120 

PA  Fo  =  1.*.'J*(aSP(M)-pfpf(M)) 

.ASP  (  vi  )  =  PE°F  (  M ) 

GO  T°  200 

C  IF  performance  TS  HIGH  AND  FTPEF5  TF  HTgM 

C  IF  (FTR(M)  .LT.  STRMCA)  .or.  pFRF(M>  .LF.  AFP(m)  GO  TO  POO 

mo  STK(M)  =  .q  +  STRv(v) 

ppQ  CO'ITTMUF 

I F (  ASP { v )  .GT.  1.)  ASP(M)  =  i. 

RETURN 

END 


*+*raklog**+  *+*p AKLOG*** 
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1* 

subroutine  a^L^r, 

7* 

C 

r,cTFRMlf|rc;  cpARACTfrISTIoS  or  MpscAGFS  PRIOR  To  SMTf*  start 

_ 3*. 

.. _ 

INCLUDE  COMRLK 

4* 

IE  ( !CHAIN.Gr.R)  so  rA  Son 

0* 

I E (  OKI  0  . Lr .  0  )  00  TO  710 

..hi. 

_ _ 

-J  =.  1 

7* 

MESS( 1  .  J )  -  OKLO 

fl* 

MESS (7* J)  =  OKLO 

.  _9* 

DO  700  WSG  r  1 ,  OKLG 

i  n  ♦ 

C 

oETFRMI  f\ir  “EsSaGE  hr  j  or  I  t  y 

1 1* 

CALL  RAUnU(RY.l) 

,-L2* 

, _ _ 

DO  110  ID  =  1.5 

1  3* 

I F  (  R  Y  .OT.  FREP  (  I p  »  1  1  )  O0  TO  no 

1  4» 

PRlOR(WSG.Jl  =  T° 

1  5* 

GO  TO  12Q 

1  0* 

1  1  0 

CONTINUE 

1  7* 

J  70 

CONTINUE 

Hi}* 

C 

OETErm i rjr  ‘J,ESS AO£  rynr 

lO* 

CALL  RAMDU(RY.l) 

70* 

DO  130  IT  =  1 .R 

71* 

IF(  RY  .GT.  F°ET  ( I T  *  1  )  )  00  TO  no 

pp* 

TYPr(MSG.J)  =  IT 

73* 

Go  TO  lun 

P4* 

1  30 

CONTINUE 

PS* 

140 

continue 

7G* 

C 

determine  message  length 

?7* 

CALL  PAMDN(RY  »RO»0. , l. } 

PR* 

IT  =  TYPE ( MSG. J) 

?o* 

TLEN-  INC ( I T )  +  RD  *  tnS(TT)  +  , 4 nnon 

.VI* 

IEC  TLEN  .LT.  (INC(IT)/10») )  TLEN  =  IMC(TT)  /  10. 

31* 

LENT1*  ( MSG  *  J!  r  T1  rf.| 

37* 

C 

FILL  UP  OThcd  MESSAGE  DESorIpTOR  si.ots 

S3*. 

CMSG  =  CMSG  +  1 

34  * 

I TYf ( OMSG )  =  TT 

3S  * 

I PP I ( 0 VSG )  =  PR  T  OR ( VSO . J ) 

30* 

- . 

CMSOMO ( MSG »  J )  =  CMSG 

37* 

c 

T ART V ( VSG. J)  7  n. 

30* 

TART'/(MSG.  J1  -  T7EPO 
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►RaKLOG*** 


***pAKLDG*** 


30* 

SEGSlOMSG.  l)  =  TARTV(M5S, j) 

40* 

TNUf(mSG.J)  =0 . 

41* 

NFR(MSG»J)  =  0 

4?* 

MAN(MSG.J)  =  0 

43* 

OUT ( MSG  *  J )  r  OHjn { 1 1 > 

44* 

IFTr(MSG*J)  =  0 

u4* 

?oo 

CONTINUE 

4ft* 

IF (  0R0 ! 2 )  .Nr  •  CHARI)))  GO  TO  ?10 

47* 

210 

CONTINUE 

44* 

DO  214  1=1, ?on 

4  Q  * 

215 

SEGS (1*7)  =0.0 

40* 

RETURN 

41  * 

C. 

get  OIIFtir  FPOV  L  AQT  SHIFT 

42* 

300 

CONTINUE 

43* 

IF ( n°0 ( 2 )  •  f|R . r HAP  (  t)  1  GO  TO  3ns 

44* 

lPAftr=lPAGE+ l 

44* 

WRITE!?, 0300)  IPAGE 

4  ft* 

0.300 

Forma T ( 1 H 1 , 403# 37h«E5SAGE  foppfSF 

47* 

1 

40V.5HPA0F  ,I3> 

44* 

WRITE!?*  0304 ) 

40* 

0305 

FORMAT (/25HOFOR  ACTION  OEFICFR  OUEl 

ftO* 

30  5 

call  dumpy? 

ftl  ♦ 

DO  330  J— 1 , ? 

ft?* 

II  =  'TSS(  1  ,  J) 

ft  3* 

MSG=o 

ft4* 

00  314  1  =  1  *  IT 

ft4* 

IF ( OUT (I *J) .F0.fMAR(14) )  RO  TO  315 

ftft* 

MSG=MSS+1 

ft7* 

CmSo=cmsg+i 

ftR* 

ITEm=CMSGNO(T * J) 

ftO* 

CM'jGNO  (  mSG  *  J )  =C*'4G 

70* 

ITYC ( CMSC ) =TYPE ( T  *  J) 

71* 

I PR  T ( EMSG ) =PR  T  OR ( T  *  J ) 

72* 

DO  300  Nl=1 ,4 

73* 

SEGS  (  EMSG*  N 1  1=SEG5(  ITEM, >|1  ) 

74* 

309 

continue 

74* 

TNUF (MSG, J) =TNUP f I , J) 

7ft* 

NER(MSG,J)=NE°(T*U) 

77* 

MAN(MSG*J)  =  0 

78* 

OUT ( MSG  »  J ) =CH AR (  }  1  ) 

70* 

IFTrCSG,  J)=0 

.40* 

IF  ( •<4G.ro.  I )  GO  TO  31  o 

41  * 

PR  I op (MSG* J)=PRTnR(I, J) 

42* 

TYPc ( MSG . J ) =TYOF ( I  *  J ) 

43* 

LENTH ( MSG  *  J ) =LENTH 1 1  *  J ) 

84* 

TARIV ( MSG  *J)=tARTV(I*J) 

44* 

310 

CONTINUE 

4ft* 

IE(nPO(?) .EO.EHAPII ) )  WRTTE(2,O3?0 

.  47* 

0320 

FORMAT ( 4H  MSG , , J  3 , 7ft|  *  CMSG.,T4*15H 

48* 

315 

CONTINUE 

49* 

IFIj.FO.l  .AND.  ooo(2). FO,  CHAR ( 1 ) 

_O0* _ 

_9110. 

FOaMAT  (//14HOFOn.  I OD.  QUEUE  ) 

01  + 

MESSM  *J)=M4G 

Q2* 

330 

mEs5(2* J)=MSG 

RETwrFN  FHIftS 


T  ,  TTFM*MSF,,rM<;r; 

MAPS  INTO  «SG. * T3*7h* 

WPITFf?,93in) 


C^SO. » 14) 


_ S3* _ 

04* 


_ SO— TO. 21 Q . 

END 
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1*  SUBROUTINE  CASEIN 

2*  INCl'JHE  comrlk 

3*  C _  CASE  MODEL  DATA  IS  INPUTTED  FROM  DATA  FILES  HERE 

4*  REAn (P* 1000 )  FRHR*DURlN*SDlNrDEL»DELSD 

s*  inno  FoRMAT<fiOFin.4) 

_6* _ WRl.TELL2iJ.005} _ .  .  .  . 

7*  1005  FORMAT (* 1 ’> ?3X »  ’DURATION' » 14X»  ’DELAY’  / 

ft*  1  *  HOUR  FREOUFNCY  MEAN  SD  MEAN  SO  *  /) 

3*  ...  ..  ..  DO  100  IH  =  lilp 

in*  WRITE (?t 10  to)  IH,FRHR(IH> #  PUR IN ( IH) »SDIN(TH) » DFL ( IH) » D^LSD ( IH) 

11*  1010  FORmAT(I5»5F10.4) 

LZi _ IRQ.  .CONTINUE _ _ _  .  .  . 

13*  RETURN 

1 4*  END 


***CHAlN***  **  *CHa I N*** 
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1 


OMBi  K***  ***COMBLK*** 

PF.COMBLK.PF.COMBLK  _  _  _ 

RLIb70  047l6-l?:i9:47-(13*d) 

000  QP0P*ILF  *SIPSBAT.COMRLK2,*SlpSRAT.rOMBLK'> 

000  COMBLK  PROC 

000  INTEGER  ORO.  CHAR*  AVAIL*  PRTOR,  out.  UETYPF,  END.  SIF.CRIT 

000  InTfGER  shftov  .type 

000  COMMON  IPT1.  IPT2.  IPT3.  IPTU,  IPT5.  TPT6 

000  REAL  INC.  INS.  IOL 

000  INTFGER  TNUE.  BKLG.  CMSG.  CMSGNo»TIFI*TIE2*TIE3*TIE4 

000  COMMON  IDENT(12>.  NSHIFT.  IHMAX.  MEN ( 3) *  ORO (10).  NSHF* 

000  ?  IDAY.  BKLG.  PUL.  Pi'S.  SRTA.  SRTS.  IATA(2*ft).  NTF.  MRS* 

000  3  M*  F ( 6 ) *  PREC ( 6 ) .  STRM(6>.  ASP<6>.  J*  SIF, 

000  4  TH.  IGP(  1 2)  »  IGR  ( 1 2 )  *  IURM21.  FRFT(7»12). 

000  5  FREP (5.12) .  FRER(12),  FRFO(12).  7TH*  STRffe)*  MENS* 

000  6  FR<4.7).  ERPG(4).  EpPI<4). 

_ QQfl 7  INC (7) *  I MS ( 7 ) * 

000  R  JTYPE (20*4) .  CRIT<20.4).  FM0<20*4).  IJF(20.4>*  IJS(20,41, 

000  9  aVGTM  (20*4)  *  SIGMA(30.4),  AVPROB  (  20  *  4 )  *  IJETYPE  (20*4)  *  UER  (20*4)  * 

_ OOJL  ...  .  ,1  CC12.  CC13*  CC14,  CC23*  CC24,  C C34,  *»( 4) 

000  COMMON 

000  3  MSG*  PRIOR (50*2)*  LENTH(50*2>*  TvPE(sn,2>,  TARIV(50,2)* 

_ „J).00.  4  TNUE (50*2)  *  nFR(50*2>*  MAN(50*2).  IFTE(S0*2)*  OUT(5o*2>* 

000  6  AV A IL ( 6) .  7(ft),  MSGS.  ST.  FNDHR*  HRoVER *  SHFTOV.  NoSUC(6). 

000  7  NOFAIL ( 6 )  »  LOONE.  INTRPT(6>*  MS6TRP(6>. 

_  OOO.  1  Tl£l(50*6) *TTE2(50*6) *TIE3(sn,6) *XTF4(sn,6) *  PFRF (6)  *  TDLU2.61. 

000  P  MSCPL (6) *MSRFJ<6) *MQCPL (1 2  *  6 > . MQRR J ( 1 2 , 61 *MQTNT(12.?>  *TW(12,6> 

00.0  COMMON  PAFW *  RAFA.  IT*  K*  Y .  RY, 

. 000  5  mESS(2*2) *  CMSG*  CMSGNO<50*2) *PASP(6) 

000  COMMON  SEGS(2O0*7) .  TTYC(200).  FC(12,S) ,ATpM,  ImFoLS(2o»i>  . 

000  1  TMT(B*5)»  NTMT(B).  TNT<6> 

.  000  COMMON  CTSH(12*5>.  NCTsh<12>*  CTST(g.S), 

000  1  NCTST(fl).  CTSP(5*S).  NFTSP(5>* 

000  2  CTWH (12*6) *  CIOHf 12*6 >  * 

_  000  .3  CMTMG(12,6)*  M6CP(12*6)*  CEC M  2**5) * 

000  4  CP ( 5 . 5 ) *  NCP(S),  IPR 1(200)* 

000  6  CTH ( 1 2 * 5) *  NCTH( 12)*  START(6>* 

.  _  OOQ  6  CFSU2.6)*  CFA  { 12  *  6)  * 

000  7  WOR  <  6) .  TMI (6) »  TpMC (6) *  MCL(6). 

000  fl  SRS ( 6) *  aSS(6>*  PRP(6) *  CH C 5) * TPAGE *  NAME (6) * NMTyp ( 41 

_ 000  COMMON  LOGBACf 12*2) *  MUCOMPM2.2)*  MUREJ(12.2>*  MUIMT(iR,2) 

000  COMMON  KINKS,  INFLHR(t2)*  IRFST(B.7>*  IRRSH(B*1?) *CT(B,B) .NCT(fl) 

ono  common  /data/  charot) 

.  _  000  COMMON/DATA/ISTKMT (51 *TZER0*TFHAIN*  RmPS ( 7) . AQT  *  AHT 

000  common  /  data/  PROBI ( 10*3*9) *  ATTE ( 1 0 * 3* 9) .  Ani(10*3.9),  Itymax 

000  C0MM0N/DATA/LINF(64) .GMEANSI7) *gTSMMS(12>  *TSMNST(7*12) , 

—  000  1  TSmNSP(5* 12) .  COMMNS (5) *  ERSl/MT<7.7) 

000  2  .  FXTPMH (12.6) *  EXASpH(12*6)*  FXTpM(6),  EX ASP (6 ) , E*PR ( p ) . MCC 

000  3  .  FRHR  ( 12)  .  OUR  IN  ( 12)  .  SDINM2).  DFL<12>.  DELSO(12) 

_ 0Q0 _ END . . .  _ _ _  _  . 


***C0MPU*** 


***compu*** 


I 


2* 

.3* 

4*  . 
5* 

ft* 

^  _  7*.  _  . 

H* 

9* 

in* 
i  i  * 
i  ?* 
13*. 
14* 

IS* 

1ft* 

17* 

1  ft* 

.  .19* 

?n* 

?i* 

22* 

2.3* 

24* 

_ 25* _ 

2ft* 

27* 

_2H* _ 

29* 

in* 

-31* _ 

3?* 

33* 


.SUBROUTINE  ERROR 
INCLUDE  COMBLK 
READ (  7*80)  ISKlP 
80  FORMAT(Il) 

IF (  TSKIP  .FQ.  D  GO  TO  105 
DO  100  II  =  1*4 

.  REAn( 7*90)  IEj_  1EJHIE*J£>*  JE=  1* 7}  *_ERPG !  I£l*  £RpJHE) 
qo  format ( i i *  7fb.2»  ax*  2F7.2) 
mo  continue 

105  CONTINUE 

IF (  ORO(l)  .NF.  CHAR ( 1 )  1  GO  to  135 
C  WRITE  ERROR  RATE  OATA 

WRlTE(2* 110J. 

110  FORMATt  1H  */3X.  15HERR0R  FREQUENCY// 

1  23X*  12HMESSAGE  TYPE* 

_  2  17X*  15H  ERROR  RETURNS/ 

34X * 4HTYPE * 5X. 1  HI  *  5X*  IH2  *  5X » 1  H3 ,  <5X  *  1H4  *  5X  *  1H5*  5X  *  lHft  *  5X .  1  H7*  5X*  1h8  . 
46X*  2HG3  *  8X.  3HIOD/) 

DO  130  IE  =  1*4 

WRITE ( 2 *  120 )  TE*  (ER<IE*JE) *JF=l*7) ,  ERPG(IF)*  FRPI(IE) 

120  FORMAT ( 1H  .  4X .  12*  2X,  7F&.2*  SX *  F8.3*  F10.3) 

130  CONTINUE 
135  CONTINUE 
•  REAn (7*80)  TSKIP 

_ I F_< _ ISK JJFL . .£ Q. _  U.  fiQ.TQ_.14 5 _ 

C.  READ  MESSAGE  length  data 

REAn(7*140)  INC*  INS 

_ _ tltn  FQRmATI  .7FL0.21 _ 

145  CONTINUE 

IF  (  ORO(l)  .ME.  CHAR(D)  GO  TO  190 

.  C . .  JitRLTE  -MESSAGE  LENGTH  .DATA  _ _  _ 

WR I TF (2*1 50 1  INC*  INS 
150  FORMAT ( 1H  //3X*  17HNO.  QF  CHARACTERS* 
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/ 


♦FoROR***  ***ERROR*** 


34* 

35* 

36* 

37* 

3fl* 

39* 

_ 40* 

41* 

42* 

43* 

44* 

45* 

. . . „a, 6* 

47* 

■  4ft*,’. 
__ _ 4.9* 

50  * 

51  * 

- 52*., 

S3* 

:  R4* 

_ _ ss*.. 

56* 

S7* 

- Sft* 

S9* 

AO* 

_ -61  SL¬ 
AP* 
S3* 

- 44* 

SS* 

AS* 

— . -A7-*. 

SR* 

A9* 

_ 7.X1-*-, 

71* 

72* 

73* 

74* 

7S* 

- 76* 

77* 

7  ft* 

. 79* 

RO* 

Rl* 

_ f\?± 

S3* 

R4* 

_ R6*L- 

RA* 

R7* 

- «U- 

R9* 

90* 


l-£3X->, 


2  31X*1H1*6X*1H2»6X* 1M3.6X*1H4.6X* lHS*6X* 1H6.6X. 1H7*AX»  me/ 

3  5X >  15HIN  COMPUTER  <M),  5X.7F7.2/ 

4  5X,  16HIN  COMPUTER  !SD)*  4X.7F7.2Z/) 

REAn(7»R0)  ISKIP 

IF (  ISKIP  .FO.  1)  GO  TO  215 


_ WR  Ij£_!2_.  170)  IDE!'it'  IPAGF 

170  FORMAT ( 1 HI .  1SX»  12A6*  13X.  SHPAGE  »  T4/> 
IPAGE  =  IPAGE  +  1 
WRlTE!2.  180) 

1  RO  FORmATUH  »/9X.  18HTASK  ANALYTIC  DAT«// 


1  101X.  16HUM0ETECTE0-ERROR/ 

2  2X »  4HT  ASK .  SX.  7HFLFMFNT.  UX>  4HTYPF.  3x*  9HCPITTCAL  . 

3  42h  SEGMENT  NEXT-FAIL  NEXT-SltCC  Mfan-TIMF  »  2X. 

4  35HSIGMA  PROBABILITY  TYPE  PPOR//) 

12JJL.C.QNTXNUE. 

K  =  9999 


c  reads  in  task  analytic  rata 

_ DO  210  N  =  1.  NTE  _ _ _ _ 

REAo(7#200)  K.I.  JTYPF!I*K),  CRIT  ! I »K  )  »  FnPH*K). 

1  I JF  ( I  *  K  )  *  IJS ( I »  K ) »  AVGTM(I,K),  SIGMA!I.K)*  AVPR0B!I»K)* 

_ 2-UETYPE!I*K) #  UFP(I.K)  .INTS 

200  F0RmAT(I2*I3»1X*T1*A1 *  IX . 1 1 . ) Y , ?I3 , 2Y , 3F1 0 . 3* A1 * F6. 3. 22* » I’ 
IF (  INTS  *LF.  0)  GO  TO  197 

_ BEAqI.7 1 196.)_1L1YPJ-  PROal  !I*K..  ITYP)  »  AITE  (  T  ,  K  .  ITYP)  . 

1  ADI (I>K> ITYP) .  LK  =  1*  INTS) 

196  format ( 4 (  12.  fa. 3*  2F&.i>) 

_  IF (  ITYP  ,GT.  ITYMAX)  ITYMftX  =  ITYP 

197  CONTINUE 

IF (  ORO(l)  .NF.  CHAR(l))  GO  T o  ?10 

- 1FJL X  ^.EQ.-  KP1  GQ  TO  203 

KP  :  K 

WRlTE!2»202)  K 
.  202  FORMAT!  1H  »  IS) 

203  CONTINUE 

WRITE ( 2 »  205 )  I.  JTYPF(T.K).  GRIT(I.K).  FNnfl.K). 

_ 1—1  JF  !  I » K)  »  US  II . K  )  r  AVGTM(I.K).  Slo,MA(I»K)»  AVPROBd.K)* 

2  UETYPE !  I » K  ) »  UFP{I»K) 

205  FORMAT (5X»U0.9X.I1»RX»aI»9X.T1.2I1O»F10.2* 

-  1  F11.2*F9.3.RX» Al*F11.2) 

DO  209  ITYPr  l,  TTYMAX 

IF <  PPOPl ( I»K. ITYP)  .LF.  0.)  GO  TO  200 

_  J<RITE(2.206)  HYP.  PROaHI  *K  .  ITYP)  »  «ITE( I ,K. ITYP) . 

1  ADt !  T  »K . ITYp) 

206  FORMAT! 15X.  17HTNTERUPTT0N  TYPE  *  T2.  15H  PR0pABTLITY=  . 
1  F6.3»  17H  MEAN  DURATIONS  .  FA.l.  6H  SD=  *  FA. 1 ) 

209  CONTINUE 

210  CONTINUE 

_ 215  CONTINUE  _ _ - _ _ -  -  _  — . 

WRITE  <  2  f  220 )  !J.U=  1*8).  !LP» !  IATA !LO» JPA> . 

1  JDa  =  1*8) *  LO=  1*2) 

- 220-FORMAT !  1H  *  //  25H  TASK  ANALYSIS  ALLOCATION* 

1  /  30X*  12HMFS5ASE  TYPE  / 

2  10m  nPFRATOR  ,  8Ilo* 

- 3  1/  I5»--5X*  --S-tQX« — Ill)  )  . 

READ(7.R0>  iskip 

IF!  ISKIP  .FO.  1)  GO  TO  255 


1*  SUBROUTINE  FXPE'XTENH) 

?*_  INCLUDE  comrlk 

3*  PRINT  1000 

4*  lono  FORmAT(  /20X.  • AP°LIEn  PSYCHOLOGICAL  services  PRESENTS  *  / 

5*  1  /  ?1X  *  *  AN  on-line  EXPERIMENTER  CONTROL  OF  THE*  / 

S*  ?  /2nX  »  * - MANMOO - *  >  / 

7*  .0  20x»  *  A  COMOilTFP  SIMULATION  mohEL  of  Thf  ARMYS*  / 

fl*  5  20X*  'TOS  SYSTEM  RUN  ON  THE  hniVAC  HOB  COMPUTER*  / 

q*  e,  /  10X»  *  IN  ORHER  eor  THE  PROGRAM  TO  RECEIVE  YOUR  INSTRUCTIONS* » 

10*  7  •  IMMEDIATELY*  /7X**SET  THE  CRT  IN  THE  MESSAGE  MOOE*  » 

11*  fl  •  (I.E.  DEPRESS  DUTTON  msg.)*  / 

IP*  p  /  10X»  • INSTRUCTIONS  SHOULP  bf  iNsroTEn  BETWEEN  BRACKfTS* 

IX*  p  *  whfrf  indtcateo  .*/ 

14*  9  /lOH*  'THE  XMJT  BUTTON  SHO.L'L"  BE.  DEPRESSED  WHILE  THE  *  .  . 

IS*  Q  *  THE  CURSOR  IS  ON  THE*  /7X,*  LINE  CONTAINING  THE  INSTRUCTIONS.*/ 

IS*  a  /lnX.  *  IE  NO  INSTRUCTIONS  ARE  nEEDE*>  DEPRESS  THE  HOME* 

_1.7* _ _ _ 9  *  BUTTON.  FOLXOX/EO-^Y.  -TH£-L/.7X»  *XMIX  -BUTTON^-*  / _  .  .  .  1  - 

10*  PRINT  1005 

19*  ln05  FORMAT ( 

.PA* _ .4— l-QXt  .. '-.FAILURE— IQ.  POSITION.  THE. -CURSOR  CORRECTLY*  .  * 

?1*  s  •  WTLL  RESULT  TN*  /7X,  *  WRAP  AROIJNn.  THftT  IS.  ThE  DISPLAY  WILL* 

PP*  S  •  START  IN  THE  MTDDI  E  THFN*  / 


*ErROR*** 


***ERROP**« 


READ  FFFErT I VFMESS  COMPONENT  CORRELATIONS  ANO  JfETGHTE 
REAP  ( ■* .  250  )  CC1?.CC1T,CC14.CCPX,CC24*CC1I14,  (WIN)  .M=1  .4) 
?S0  FORMAT ( • 10F5.3) 

P55  CONTINUE 

IF(9R0(1)  .ME.  CHAR(D)  SO  TO  ?70 

VPlTE(2.260)CC12*CClX.CC1(*.CCPT.CC2'i.CCX4,  (  W  (N)  »N=1  *  <*) 
PSO  FORMAT (1H1.  P4HEFFECTTVENESS  components/ 


QR* 

1 

/  ?X 

>  .31 HCORR 

elations 

99* 

l 

3X, 

5HCC 1 2-  . 

eS.  3/ 

Inn* 

2 

3X . 

SHCC13=  . 

cS  ,  3/ 

ini* 

X 

3X . 

5HCC14=  . 

ES.3/ 

In?* 

4 

3X . 

(SHCC23=  . 

FS.  3/ 

ln.3* 

5 

3X . 

ftHCC24=  . 

F5.V 

ln4* 

6 

3X, 

SHCC34r  , 

FS  •  3/ 

Ins* 

6 

/  ?X»  2SHWETGHTS  OF  E, 

ins* 

7 

3X . 

5HW(1)=  . 

Fr.3/ 

ln7* 

p 

3X . 

5HW ( 2 ) -  . 

fS  .  3/ 

inn* 

9 

3X . 

SHW(3)=  . 

f5. 3/ 

1  no* 

l 

3X . 

SHW ( 4 ) -  . 

eS.x//) 

?70  CONTTMUF 
RETURN 
END 


+**EXPER*** 


♦**fxper*** 
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I 


*fvpep*** 


***EXPEP*** 


_ 23* _ 7  7X,  *  CONT  IN'  Jr  A*'  THF  top  op  tH[t  CRT.*  / 

24*  ft  /  10X*  'WHEN  TMP  INSTRUCTIONS  (IF  AMY)  APE  CAMPLETfD*  , 

25*  ft  •  DEPRESS  THF  X^IT  BUTTON.*/) 

_ 26* _  READ  2010*1 

27*  2  PRlMT  1010 

2fl*  1010  F0RMAT<22(1X/) , I  c  1  TMO I f a Tp  THE  M'JMrER  OF  THE  DATA  aaTfgORY*. 

_ 29* _ 2_'_  TO  PP  CHANGED.*/ 

.10*  3  •  A  RESPOMSF  GREATER  THAN  20  WILL  TFOMlMATE  THF  PRoARA".  •  / 

M*  3  •  A  BLAMK  INDICATES  NO  MOPE  CH AmGFS  ARE  To  PE  MADE*. 

_ 12*  .  .  .  4  •  AND  SIMULATION  will  START.  •  / 

33*  S  20X  *  'DATA  CATFGORIFS*  / 

34*  6  /  »  1  NUNrpR  OF  ITERATIONS »» 

_ 35* _ 7  IPX*  *12  MISSION  _  TITLE  *  / 

.36*  9  •  9  OUTPUT  OPTIONS*  , 

.37*  9  16X «  '13  TASK  A"ALYSTS  TNPS  *  / 

_ IB*.. _  9'  3  OPERATOR  TYPE  DATA*. 

3Q*  012X  ,*14  OPERATOR  SPEED*  / 

40*  o'  4  OPERATOR  PRECISION*  , 

_ -4J _* _ 912X.  .'15  OPERATOR  THRESHOLD*  ' 

42*  9*  S  OPERATOR  ASPIRATION'  / 

43*  9'  6  MEAN  TIME  EOR  TASKS'  * 

_ 4.4.*..  .  .  ...  91 IX »  *16  SIGMA  FOR  TASK.  Tiyr.  /  ) 

4  S  *  PRlMT  1014 

46*  1R14  FOR*'AT  ( 

_ 42* _ 31  -.7  MESSAGE  ERROR  RATE*  * 

4ft*  912X,  *17  PROD-SIGNIFTCANT  Epbao •  / 

40*  9 '  ft  PROB-LOW  SIGN IF  ERROR*  * 

_ Jin*  ..  Q9X*  *18  MSGS  to  AO  FOP  HOUR*  / 

SI*  o*  a  meSSAGfS  TO  Aa  LAST  is  wt»i*. 

SR*  a4X  *  « 1 A  MSG  TyPF  nCCUR •  RATF ’  ' 

. _S3*  ...  .  9'  10  MSG  PRIOR.  OCCUR.  RATE'* 

S4*  Q8X*  *20  MEAN  CHAR/MSG  TYPE*  / 

SS*  9'  11  SIGMA  FOR  CHAR/TYPF*  /) 

S6+  REAO  2010*1 

S7*  2010  FOH'*at(RX*  12) 

Sft*  I F (  T  .LE.  0)  GO  TO  ooo 

_ 59*.  . .  IF(  I  .LE.  20)  GO  TO  ^ 

60*  I  F(.|r»  =  1 

61*  GO  TA  999 

62*  .1  5  CONTINUE 

63*  GO  T0(10. 20*30*40, S0.60. 70.no, Qn.lOn* 

64*  1  llA,  1  2f),  130, 1  4P,  1  So*60»  170*  1  00 . 1°0»  1 1  0)  .  I 

6 S*  10  CONTINUE 

66*  PRlMT  1020*  NSHTET 

67*  ln20  F0RMAT(22(1X/) ,  »  C»»  13,  * ImumreR  af  itfraTIanS  *1 

6ft*  READ  2020 •  N SHIFT 

60*  ao PR  FORMAT ( 2X ,  T 3 1 


70* 

. 71* 

72* 

73* 

74* 

7G* 

76* 

- 22*. 

7ft* 

70* 


GO  TO  2 

C  -  -CHANGE  IN  OUTPUT. RECORDING  OPTIONS 
20  CONTINUE 

PRINT  1030.  (J,  apo(J),  .1  s  1,0) 

1030  F0RmAT(22(1X/) , 

1  *  r  I=PFCORDTNG  OPT 10*1  c  OfSPEC IrT a atton •  / 

2  *  IMDICATE  APOVF  THc  RFCORatmr  OPTION  TO  BE  CHANGFA. * 
- 3  /*  CHAJMGES  WTU.  HE  REFLECTFR  reldw  / 

4  •  A  BLANK  TKiniCATES  NO  MORF  CHANGES  ARF  TO  qF  MADE.*  / 
s  *  a  SPECIFICATION  of  1  fxcfpaTcES  tHF  oPTTAN*  // 
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♦FvPER*** 


***EXPER*** 


AO* _  ft  10x»  ’OPTION*.  1  nx  >  *sprcirirATION*  / _ _ 

ft 1~* "  .  7  9(1  OX ►  13.  IPX.  A 1  /)) 

ft?*  RE’AO  2030.  I.  J 

«3*  2030  FORMAT  ( ?X »  Tl.  ?2X.  ID 

A4*  IF (  I  .LF.  0)  go  TO  2 

ftft*  ORO ( I)  =  J 

ftft*  GO  TO  20 

fl7*  C  CHANGE  IN  CREWMAN  NAME 

ftft*  30  CONTINUE 

ftp*  PRINT  1040.  (N,  NAME (M)  »  M  =  t,s) 

qp»  1040  FORmAT(  22 ( 1 X/ ) » 

91*  1  *  r  I=0PERATOR  NUMRFP  C  3=NeW  TYPE  op  mane  *  / 

q?*  ?  •  INDICATE  ABOVE  THE  CHANGED  eOR  EACH  Man.' 

q3*  3.  •  CHANGES  WILL  re  REFLECTFO  BELOW.*  // 

Q4*  4  «  OPERATOR  Ml  IMRE0  NAME  ♦  / 

95*  5  6d2X.Il.lTX.  A6/)) 

PA*  REAP  ?040.  n,  nn 

q7*  2040  FORMAT ( 2X .  Tl.  ?1X.  Aft) 

_ 9ft*_  .  IF  (  M  .LE.  0)  go  TO  2 

qp*  NAMr(M)  =  f.|M 

100*  GO  TP  30 

101*  C  CHANGE  In  OPERATOR  PRECISION 

102+  40  CONTINUE 

103*  PRINT  1050.  («.  PREC(M).  M  r  *.ft) 

104*  1050  FORMAT (  22<lX/>. 

loft*  1  *  r  ]=0PERAT0R  NUMBER  C  ^PRECISION*  / 

loft*  2  •  TMnICATE  CHANGES  AROVE.  CHANGES  WILL  «E  REFLECTED  BEIOW.*/ 

107*  4  •  OPERATOR  PRECISTOM  •  / 

Inn*  5  ft ( 4 V .  II.  1 5X .  F5.?/)) 

1  op*  REAP  ?050»  M,  pr> 

1 1 o *  2050  format ( 2X .  Tl.  ?ix.  eg.d 

ID  *  IF<  m  .LE.  0)  go  TO  2 

11?*  PREC(M>  =  PR 

113*  GO  TO  40 

114*  C  CHANGE  OPERATOR  ASPIRATION  LrVEL 

115*  50  CONTINUE 

lift*  PRINT  1060.  <m,  ASP(M),  M— 1 .  ft ) 

1 1 7*  1060  F0RMAT(22( IX/} , 

lift*  1  •  r  1=0PERAT0R  NUMBER  Z  1=ASPTPATT0N  LEVEL*/ 

119*  2  •  INDICATE  THE  CHANGES  ABO vr.' 

1?0*  3.*  CHANGES  WILL  RE  RFFLECTep  °El.0W •  // 

1?1*  4  «  crewman  aspiration./ 

1?2*  5  6 ( 4X .  1 1  *  1SX.  F^.p/D 

1?3*  REAP  R060.  M,  AS 

1?4*  2060  FORMAT ( 2X »  II.  21X.  F5,2) 

1?5*  IF (  m  .LE.  0)  GO  TO  2 

1 2ft*  ASP(M)  =  AS 

127*  GO  TO  50 

.  12J3*  .  _C._ . -  .  CHANGE  MEAN.  IT  .MEL  AMO  SIGMA  FOR  TASKS  .  .  _  .  . . . 

1?P*  ftO  CONTINUE 

130*  PRINT  1070 

LU* _ XO70  F OHMAXt 22-llXKlx  .±..L  .1 IMP I-CA.TE-T±IE-  JASK-  JINALYS IS-  TO  R£- CHANGED-'  ) 

lx?*  REAP  2070.  K 

1X3*  2070  F0R'*  AT  (2X.  II  ) 

_ulo*- _ if t  k  mUl*  ai  .so  in.,.?. -  -  - 

135*  64  PRINT  1072.  K» (T.AVGTM(I.K) .STGmA< I. x) .1=1.20) 

13ft*  1072  FORMAT ( 22 ( IX/) . 
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*FvPER***  ***EXPER*** 

137* _ L_ * _ C _ 3=TASK  FI_rMENT  C _  3=MEA*' _ C _ 3=S_IGma*/_ 

1*5*  F  ?X»  'TASK  ANALYSIS^ ,  13  / 

139*  4  3X  »  ' ELEMENT  * #  10X.  'MEAN*  ftX.  *SIGMA'/ 

140* _ _  ft  20(2X#  14#  FI  ft . 2  »  F13.?/)) 

141*  READ  2072.  T.  AVG.  S  T  G 

142*  2072  FORMAT ( 2X »  12#  IftX#  F6.0»  10X.  F6«0) 

143* _ IF (  I  .LE.  0)  SO  TO  60 

144*  AVGTM ( I » K  )  =  AVG 

14ft*  SIGma(I.K)  =  SIG 

146*  _ GO  TO  64 

147*  C  CHANGING  MESSAGE  FRRQP  RATF 

1U8*  70  CONTINUE 

149* _ PRImT  1080#  ( L  >  L  =  1 . 4 )  >  (J#(FP  (I.J).  I  =  1.4)#  J=l#7) 

lftO*  lftftO  FORMAT (  22 (IX/). 

«  lfil*  1  *  r  3=MESSAGE  TYPE  C  l=ERROP  TY^E  ♦ 

lft?* _ 3  .*_[  3=ERROR  RATE  •/ 

lft.3*  4  •  TNDICATE  CHANGFS  AROVf.  CHANGES  WILL  re  PEFLFCTFn  BELOW*/// 

lft4*  ft  10X.  *  MESSAGE  ERROR  PATE  Prc>  100  CHARACTERS*/ 

_ 155* _ 6  3X.  » MESSAGE »#  17X#  » ERROR  type*# 

lft6*  ?/5X,  ’TYPE'#  19.  3110  // 

1*57*  7  7 ( T7#  F13.2#  3F10.2#  30X  /)  ) 

_ _ 15H*. _ READ  2080.  MT#  IERT #  ERATE 

lft9*  2080  FORmaT(?X»  Tl»  ] 7X »  Tl,  16X.  Fft.O) 

160*  IF  (  MT  .LE.  0)  GO  TO  ? 

- 161* - ER  ( IERT .  MIX  ..z„EBAT£ 

16?*  GO  TO  70 

163*  C  CHANGING  THE  PROBABILITY  or  LOW  SIGNIFICANCE  EPRor 

_ 1A_4* _ _  80 -CONTINUE 

1 6ft*  PRINT  1090.  PUL 

166*  lnoO  FORMAT(22( IX/) . 

- 167* _ 1_-*  C_’-iE5^2a’  ^PROBABILITY  OF  A  NON  IMPORTANT’ . 

16ft*  2  *  FRROR  IN  THE  COMPUTER  DATA  STORE” 

169*  READ  20P0.  PUL 

_ 170* _  .2090  FORMAT ( 2X .  Fft.O) 

171*  GO  TO  2 

17?*  C  CHANGING  THF  NIJMRFP  OF  MFSSAGES  to  AO  IN  HF  I  AST  1ft  mJn'ITfs*/ 

- 173* - 90  CONTINUE 

174*  PRINT  1100.  (IH.TGP(IH) .IM=1.T2) 

17S*  1100  FORmAT(22(1X/) . 

..-..-176%.  .  3  '  r  3=HOUR  C  3=MUMBER  of  ‘'ESSagfs.'/ 

177*  ft  '  tnPICATf  CHANGES  APOVF.  changes  WILL  PE  RFFLECTFn  rflow ' / 

178*  7  /  6*.  *MFSSAGFS  ARRTVTNG  In  THE  LAST  1ft  MTNIITFS  OF  HO"R*/ 

- 179*.- .  7  /l(\X,  *  HOUR  *  .  6X.  'NUMBER  OF  MfSSAGES*/ 

180*  8  12 (  IX. 112*116  /> ) 

181*  READ  2100.  TH»  N« 

la?.*  ..  2too  format (2x .  T2.  iox.  ta) 

183*  IF  <  IH  .LE.  0)  GO  To  2 

184*  IGP(TM)  =  NM 

_ Last _ GO  XQ _ 90 _ _  _ _  _ _ 

186*  C  CWANVING  MESSAGE  PRIORITY  oCCURRFmce  pATF 

1«7*  100  CONTTNUE 

-  .  laa*—  _  PRINT  1110.  lI»T=l.ft).(IH» (FPEP( IP.TH) .TP=1.5) »TH=1»12) 

189*  1110  F0RmAT(22(1v/)  . 

lqo*  i  *  r  3=houp  r  i=prtority  r  3=occurrfnce  pate*' 

- IOX* - 4_-*_XNnlC AXE- CHANGES  ABOVE.  CHANGES  WILL  BE  Rfei.ECTFD  RFLOW*/ 

19?*  ft  10y,  •  MESSAGE  PRICPTTY  OCniPRFNCE  rate  * 

193*  7  /  33X *  *ORTGRITY*  / 
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‘EvPER***  ***exper*** 


194* 

IPS* 

19ft* 

197* 

19ft* 

199* 

2nn* 

2ni  * 
2n?* 
2n3* 
2n4* 
2ns* 
pns* 
207* 
20ft* 

. 209* . 

2i  n* 

21  1* 

_ 212*..  . 

213* 

21  4* 
2.1.5* 

21  S* 
217* 

_.__2’  ft* 
219* 
220* 
221* 
222* 

2  23* 
?24* 
22S* 
22ft* 
227* 
22ft* 
229* 
230* 
231* 
232* 
233* 
234* 
23S* 
23ft* 
237* 
23H* 
.239* 
240* 

24  1* 

_ 2it2*  .  . 

243* 

244* 

_ 245* _ 

24ft* 

247* 

_ ZJl2* _ 

249* 

2S0* 


_ ft  5X,  ’ HnUR 1 *  19,  4110  // _ 

3  12 ( IX  *  1 7  *  F11.2*  4F10.2/)) 

READ  2110,  IH,  IP*  RATE 

2110  F0RmAT<2X.  T  2  *  lOX.  II.  15X.  F5.0) 

IF (  IH  .LE.  0)  GO  TO  2 
FREP(IP.IH)  =  RATE 
GO  TO  100 
110  CONTINUE 

C  CHANGE  MEAN  AMO  SIGMA  FOR  PHARACTFRS  PER  MESSAGE  TYpF 

PRINT  1120*  (I.  INC ( T ) »  INS ( I >  *  1  =  1*7) 

1120  F0RMAT(22( IX/) . 

4  •  C  I=MESSAGE  TYPE  C  1=MEAN  C  IrSiGMA'/ 

s  *  indicate  changes  abovf.  changes  will  re  REFLFCTEO  below. •// 

5  10X*  ' MESSAGE  LFNGTH  DATA'/ 

6  4X *  'TYPE  OF'.  QX.  'NUMBER  OF  CHARACTERS'/ 

7  4X .  'MESSAGE*.  9X,  'MEAN'.  11X.  'SIGMA'  // 
ft  7( IX.  17.  2F16. 1 //) ) 

REAP  2120.  «T.  AMEAN*  SIG 
2120  F_0RmAT<2X.  II*  IPX.  =6,Q.  IPX.  F6.P) 

IF (  MT  .LE.  0)  GO  TO  2 
IF (  AMEAN  .GT.  0.)  INC(MT)  =  AMFAN 
IF (  SIG  .GT.  0.)  INS(MT)  =  SIG 
GO  TO  110 

C  CHANGE  MISSION  TITLE 

120  CONTINUE 

PRINT  1130.  ID£nT 
1130  Format (  22<lx/). 

1  •  c*.  12A6 .  •]•/ 

2  '  TNSEPT  NrW  MISSION  TITLE  ABOVE') 

READ  2130.  IDFNT 

21^0  FORMAT ( 2X .  1 2  A  6 ) 

GO  TO  2 

C  CHANGE  TASK  ANALYSIS  INDICATORS 

130  CONTINUE 

PRINT  1140.  < J. (TATA( I. J) *  1=1.2) *  J=1*7) 

1140  FORmATI  22( IX/) . 

1  '  r  1=mESS AGE  TYPE  I  3=OPFRAT0R  TYPF  C* 

3  *  1=TASK  ANALYSIS'  / 

s'  indicate  changes  above,  changes  wtll  be  reflected  below.*/ 

6  /  1 3X  *  'TASK  ANALYSIS  USAGE'// 

7  3X .  'MESSAGE'.  IPX.  'ACTION'*  °X*  'I'TOD'/ 

ft  4X .  *  TYPE ' *  11X*  'OFFICTER'*  ftX,  'OPFRAT0R'/ 

O  21X*  ' ( 1) ' *lix*  ’ (2) •/ 

9  7 (  IX* 15.  117,  114/) ) 

READ  2140,  MT,  T»  NT  A 

2140  format < 2X * i i ,  i7x*  n*2ox*  12) 

I F  (  MT  .LE.  0)  GO  TO  2 
IATa(I*MT)=  nta 

_ G.Q  TO  130.  ..  _ _ _*_L _  _ 

C  CHANGE  OPERATOR  SPEED 

140  CONTINUE 

_ _ PRINT  1150,  (J,  F  ( J )  ,  J=1.ft) _ _ 

1150  F0RMAT(?2( IV/) , 

2  '  r  DrOPEP ATOP  C  3=SOFFD'/ 

3  '  INDICATE  AMY  CHANGES  ABOVF.  * _ 

3  'THE  CHANGES  WTLL  BE  reelectfd  BELoW* 

4  //  »  operator  spfeo*/ 


74 


I 


*FvPFn*** 

***FX°FR*** 

241  * 

4  4(4X,  T  2 

2S2* 

RE AO  21S0 

2S.3* 

2140  FORMAT ( 2X 

2S4* 

IF (  J  .LE 

244* 

F ( J )  r  FJ 

244* 

GO  TO  140 

247* 

c  change 

T2.  1  2X.  PS.?/J  ) 

J,  fj 

T2»  14X.  F4.‘ 
0)  GO  TO  2 


CHANGE  OPERATOR  STRESS  tHRRShOLO 


244* 

140  CONTINUE 

249* 

PRINT  1140.  (J.  STRM(J), 

c_ 

II 

»-• 

JV 

240* 

1140  FORMAT ( 22 ( 1 X/ )  , 

241  * 

2  •  r  i=opep a  t op  r 

DrSTprSS 

tHDFSMOLO* / 

242* 

3  •  TUNICATE  any  changes 

AROVF* 

24.3* 

4  the  CHANGES  will  re 

PEFLpCTFD 

RF|  OW  •  •/ 

244* 

4  /  •  0PFPAT0P 

24S* 

4  6(RX»I2.14X.  F4 «  2 

/)) 

-  244* . 

REAP  2140.  J.  ST 

247* 

2140  F0RvAT(2X.  T2 »  14X. 

F6 

244* 

I F (  J  .LE.  0)  GO  to 

2 

249* 

_ ST8"(  J.)  ~  ST 

270* 

GO  TO  140 

271* 

c  change  prorartlity 

_  27.2*.  _. 

170  CONTINUE 

273* 

PRINT  1140.  pus 

274* 

1140  F  0  R  m  A  T (  22 ( 1 X/ ) . 

threshold*  / 


- 27.S*.  _ 

274* 

277* 

_ 27fl* 

270* 

240* 


_  _l..L.r*.».  F&,3..  'IMPROBABILITY  of  a  SIGNIFICANT  Frpor  tn  the  hata  •) 

REAP  2140.  PUS 
2i40  format ( 2X .  F4.3) 

GO  TO  ? 

C  CHANGE  MFSSAGFS  to  AO  RANPOv  THROUGH  HOUR 

140  CONTlNUF 


- .  .  2R1* 
242* 
243* 
244* 
240* 
240* 
...  247* 
244* 
240* 
200* 
201  * 
202* 
203* 
204  * 
204* 
204* 
207* 
7oo  * 
200* 
3no* 
3  r.  1  » 
V.  7* 
«  « • 
•  .  • 
J  •  * 


PRlNT  1190.  (IH.IGR(IH)  .  IH=1.!2) 

1 1 °o  format ( 22 ( i x/ i  . 

1  •  r  3=H0UP  C  TrMF55AGFS./ 

2  •  INDICATE  CHANGES  ABOVE «  CHANGES  wTLL  RE  REFLFCTEn  BEI-0 **// 

3  '  MESSAGF  aPRIVAL  OAT £*/ 

4  •  HOUR  FRFOUFMCY*/ 

5  12 ( 6X » 12 . 10X .  !3/)  ) 

REAP  2190.  Th«  TO 

2190  FORMAT ( 2X »  T2.  12X.  T?) 

IF (  IH.LE.  0)  GO  TO  2 
IGR(TH)  =  IG 
Go  t°  1Q0 

CHANGE  MESS AGF  TYPE  OCCURRENCE  RaTF 
100  CONTI MUF 

PRINT  1200.  ( IT. TT=1 .7) , (IH, (frft( IT, th) . IT=1 .7) .IHrl.lo) 

1200  Format ( 22 ( 1 v/ ) . 

1  *  r  1— H01JO  C  IrTYDF  r  1=CUNULATIVE  PROPORTION*/ 

2  *  TMPICATE  CHANGES  AROVR.  CHANGES  WTLL  RF  RFFlfCTFP  BFIOW*// 

3  10X.  ’FREQUENCY  QF  MESSAGE  TypfS  EXPRESSED  AS . CUMULATIVE  PROPORTI 
40NS*/ 

5  40 y »  * MESSAGF  TYPE'/ 

4  4X.  ’ HOUR  * .  10X.  7X7/ 

7  1 2  (  4  Y »  12.  l’X.  7F7.2/M 
PFAo  ">200.  T h ,  IT,  For 
270U  FORMAT (2X.  I2a  12Xf.  12.  12X.  c5.2) 

I F  (  tu  .l,E.  0)  0-0  TO  2 
FREt(IT.TH)  =  FRF 
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*F vPER  *  *  * 


***EXPcR*** 


303*  _  _  _G_0  TP  IPO 

3nq*~  '  990  Continue 

310*  RETURN 

311*  END 


***FaTIGII*  +  *  ***FATIG11*** 


1* 

SUBPO'  IT  I ME  FATIftM 

?*  c 

CALCULATOR  WORK  FAT’ftUF  A R 

A  FUNCTION  OF  HOUR 

3* 

INCLUDE  COMBLK 

4  + 

OAY  =  IOAY 

S* 

PAF'V  =  1.1147  -  .02173  *  Z<u) 

-  (DAY  -  1 . )  *  .01 

ft* 

PAFW  =  1./  PACW 

7* 

IF<oacW  ,LT .  1 . )  PAFW  =  1 . 

0* 

return 

9* 

END 

***HOUR*** 

***MOUR*** 
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1  * 
?  * 
7* 

'1  + 

* 

7* 

!\* 

n* 

I  'I* 
1  1  * 
1  2* 
1  7  + 
1  4* 
1  S* 

1  g* 

17* 
1  S  + 

1  o* 

pn  * 
21  * 
7  7* 
7  ft* 
7  4  * 
7B* 
?f  + 

77* 

?o< 

?o* 

70  + 

71  * 
7?* 
77  + 
7tJ  + 
7r'  + 
7.7  + 
77* 
7.7  + 


C 


4 o 


B(i 


j  I  ip":  iTIME  l,0  17 

offt^S  I'l  Mr  SFIG"  RY  HOUR  V  ft  R  T  ARLrP 

riCl'i^r  COvni.K 

r?c^(7,u'!)  rryjp 

P.oo”  ft  T(  1 1  ) 

IF  (  TFK  It’  .''ft.  1  1  7(0  To  107 

7  =■«/■)  (7  tSP)  (  vj”TYP  (  T  <  )*lK  =  1#o) 
F0R”ftT( Qftb) 

REft 0(7,60)  (RupO(L)  »Lr1  ,7) 


nt)  FOR*-*  ft  T  (7FC.R) 

Do  1  of  T  HI  1-  if  TmmAV 

nr,".ol7.Qn)  Til,  r  r-D  (  T  m  i  •  TPft(TM  ,  TIIO(TM)* 

1  (Fr>FT(L.  In)  ,t.  =  1 .7)  ,  {  coFP  (tf»T*0*K-  1*=;)* 

7  FRrn  (  I  rJ )  ,  PR^tq  (  T  H  ) 
on  erjR>(«Ttui2,  iv,  14PS.0) 

DO  ino  K Y  z  1,7 

F  R  E  T  ( '<  Y  »  I'D  =  pnrr(KY,Tuil/  100. 


in. i  CD.JTl’Ji'F 

no  loo  <x  z  i , s 

FREo(KX»TH)  t  PFc"f5  ( K  Y »  Tm  1  /  ion. 

102  CjtiTTM^F 

ins  CDDT+mUF 

107  CO.DTTmiip 

I F  (  or  0  (  i )  .vr.  omarM))  GO  To  opn 
\'R I tp  ( ?  *  lfin)  (R”OG<l  )  ,i.=  i  ,7) 
ion  F0R‘,M(//7'>Mn\ircc:,AGFS  P^P  FTTWiiLHS  °Y  TYd^  / 

1  i3m  1  ?  3  4  5  6  7  /] Y , 7Fg  . ? ) 

'VR  I  tt  (  P  ,  1  1  0  ft 

110  FORMAT  (n  ,/oon  HOUR  P  ft  R  AMPTrRF  » 

1  /  OFY,  4 1  m - IMOIIT  'TFSFftOEF  FRO”  O'JTsToe - - 

7  //  4r H  c 1  'ft*UL ATI VP  VPSSAGP  rR^o'irNOY  BY  TYPr, 


•ft 

77m 

FIJM.  vsg 

FRp o •  BY  OR  T  OR I T Y  , 

4 

46m 

deliveries 

PER  MOUR  NUMBER  OF  VFSGAOES  » 

F 

/  '|PI| 

hour  i 

7  7  4  S  G 

7  B  , 

G 

79m 

1  7 

7  4  S  , 

7 

SUM 

ROJTIME 

MQT-RQLJTTNr  LAST  1/4  MR 

ANYTIME  /) 

no  1  70  T  Mr  1  t  I  h**a  X 
WPlTr(?rl?0)  TH* 
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*Hr>UR*** 


***H0!  IR*** 


io» 

4(1* 

41* 

4?* _ 

43* 
44* 
45* 
46* 
47* 
,4ft*  __ 

4  o* 
so* 
si* 

52* 

S3* 

.Sit* _ 

66* 

66* 

SO* _ 

5ft* 
S9* 
A0*_.  _ 
61* 


1  (FpFT(L» IH) *L=  1 »7) . ( FREP(K. TH).  K  =  1*5>*  FRFR !  IH)  »  FrCQ(TM). 

2  IGP(IH).  IGR(Ih) 

120  FORMAT! 1H  *  IS.  IX*  7F5.2*  OX*  5F5.2*  FlS.l*  Fll.l#  2111) 
_130_CONTINUF 
200  CONTINUE 

IF!0R0(9)  .ME.  CHAR(?))  GO  TO  909 
_ 00  OOP  IHH=_1_*  THMAX _ 

READ  (7.1000)  IH.FRHR(IH)  *r>URIM(IH)  *<;OIN(  Th)  *0EL  !  IH)  *  DELSD  (  TH) 
lnOO  FORMAT! 12* 5F ID, 4) 

IF ( IH  . GT,  0)  GO  TO  ?00 
WRITEI2* 1100) 

1100  FORMAT! •  ZERO  HOUR  IN  CASE  TYPE  DATA  HAS  BOMBED  RUN') 

QQO  CONTINUE _ _ _ _ _ 

WRITE ( 2  * 100S ) 

1005  FORMAT! *1*.  23X*  'OURATION*.  14X*  'DELAY'  / 

1  '  HOUR  FREQUENCY  MEAN  SO  MEAN  SD'//) 

DO  050  IH  =  1 . IhmaX 

WRITF(2. 1010)  IH*FRHR(IH) .  ntiRlN! IH) *SDIN! IH) .D^LIIH) *OrLSntlH) 

loin  Format  its*  sf  10.4)  ..  . . . 

950  CONTINUE 
999  CONTINUE 

. . -RETURN 

END 


***ITSUM***  ***1TSUM*** 
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» 


_ UL_ 

2* 

3* 

4*... 

s* 

<y* 

—  7*  — 
4* 

Q* 
i  n* 

1 l* 
i  2  + 
t.7* 
i  4* 
i  6* 

16* 

1  7*  • 

1  4* 

i  o* 

on* 

oj  * 

?o* 

23+ 

on* 

os* 

26* 

27* 

24* 

pot 

7  0* 

71  * 
.7?* 
77* 
74* 
75* 
7.7* 

.  77*  . 

70* 
70* 


SUOROijTINE  TJSJ'* 

C  or? t NTS  SMirx  RESULTS 

INCLUDE  C0M°LK 
IF (  090(6)  .ME.  ' )  GO  TO  12 
VR1  'rr~  (  2  ,  4  )  nr\jT*  iPflor 

4  FORMAT  (  1H1  »  1 Fy,  1?a6*  1  7Y »  fupaGE  »  T4/) 

.  IPAGF  =  IPAGF  *  l 

WRlTE(9»6)  mc;mf 

5  F0R'.«AT(1H  ,  /  2nM  PFSULT9  OF  FwIET  T  TER  AT I  ON »  TS/) 

WRlTE(2»10> (Iw» CFC(I^tKL' *KL=1 »S) »  fM:  1 , IHMAY ) 

m  FORMAT (IN  ,  //lnv,  4  1  MTuoppiiou*|t-55  roMPLFT^MFFS  RESpONFTVEMFFF  * 
1  aoMACC  IR  ACY  ccFFCTT'/FM^FF/ 

0  6M  HOUR/ 

7  (  T6,  SF12.7/)) 

12  CONTTMUF 

00  10  IT  =  1,7 
Y  z  MrT(TT) 

I F (  v  .LE.  0)  Gn  T0  16 
(!CTFT(IT)  =  NOTFT(IT)  +  MCT(JT> 

Oo  1 4  T 9  =  1 ,f 

C  FTDRf  CUMULATIVE  TIME  FE«vrNTS  qv  tydf  FOR  RUN  SitVMftDY 

CTST(lT.IS)  =  CTET(tT.TE)  ♦  CT(TT*IF) 
c  C  AI.C'  H.ATr  T  Tr D  ATT  ON  v^JM  T T **f  r>FR  FF(;mfnt  p^p  TYpF 

CT( TT. TO)  =  CT( TT»  TF)  /  Y 

14  COMTTNUF 

15  CONTINUE 

00  17  IP  =  1,6 
X  =  MOP ( IP ) 

I f (  v  .LE.  n)  GO  TO  17 

C  aGF'Iy"  ILAtF  TTM!r  FFGmfmTS  nv  DRTORTTY  F09  RUN  SUMMARY 

NCTFO  ( 1° )  =  MCP(TR)  1-  NCTSP(In) 
oo  16  IF  =  1,6 

CT5n  C  TP* IS)  =  CTFO(TP,If1  +  0D( TP, IF) 

CP(T'o.IF)  =  C°(Tn»lF'  /  X 

16  CONTINUE 

17  CO  ItTmUF 

IF (  ORO ( 6 )  .NF.  1)  GO  TO  30 

W? I TF ( 2 »  20 )  (TT.  NCT(TT),  <CT(TT,TS)»  IS=  1»5),  TT=  1»7> 

70  FORMAT (IM  *  //inY ,  ROM  NO.  T1  T2 
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I 


1* 

2* 

2* 

2* 

2* 

2* 

2* 

2* 

2* 

2* 

2* 

2* 

2* 

2* 

2* 

2* 

2* 

2* 

?.* 

2* 

2* 

-  P-* - 

2* 

2* 

-  -2JL- 

2* 

2* 


INCLUDE  C0MOL«*LlST 
COMRLK  PROC 


INTfGFR  ORO*  char*  AVAIL*  PRIOR*  out*  UFTYPF*  ENO,  SIF.frit 
INTEGER  SHFTOV  .TYPE 

COMMON)  TPT1  *  TPT2 *  TPT3*  IPT4.  IPT5*  TpT6 
REAL  INC*  IMS*  IPL 

iNTrOER  TNUF  *  BKLG.  CMSG*  CMSGNO *  TIM  * TTE2 * TIE3 * TIE4 
COMMON  IDENT ( 1?)  *  NSHIET.  IHMAX*  mfn(3)*  ORO(tO)*  NSHr * 

?  TOAY.  BKLG*  PUL*  P"S*  SRTa,  SRTS *  IaTa(2*R)*  NTF*  mdS. 

3  M*  F(6>.  PREC  <  6 )  *  STRM(6)*  ASP<6>*  J*  SIF* 

4  TM,  IGP  (  1  2  >  *  IGR  ( 1  2  )  .  IURM2)*  FRrT(7*12)* 

5  FPFP (5*1?)*  FRFR ( 1 ? ) *  FRrn(ip),  7TH*  STR(6)*  MENS. 

6  ERC4.7)*  ERPG ( 4 )  .  Er’PT<4>. 

7  INC (7).  INS (7). 

fi  JTYPF  (20.4)  *  CRI T  (  PO  .  4 )  *  FMn(20,n).  TJF(20*4)*  TUS{pn,4). 

<9  a'/GTM  (20*4)  *  SIGMA  (20.4)  >  A VPROB  (  20  * 4 )  .  UETYPE  ( 20 *  4  )  . UEn ( 20 . 4 ) 

1  OC 12  *  C  C 1 3 .  Cr14,  CC23.  C024.  CC34*  w(4> 


COMMON 

3.,..  ySG*  PRIOR  ( SO  *  2 )  *  LENTH  (50*2).  TVP£(50*2).*  TARIV(50.o) * 

4  TNUE (50.2) *  NFR ( SO . 2 ) *  MAN(50*2).  TFTF (50*2) ,  OIJT(5o*2'* 

6  AV AIL ( 6 ) .  7(6'*  MSGS*  ST*  ^NOHR*  HROVER*  SHFTOV.  N0SUC(6)* 

.7—  nOFA-I-L£6J  «  .LOONEa-1NT2PXL61j  MSGTRPL6 )  .  . —  .  .  ... 

1  Tl^l  (50.6)  *TTE?<50.6)  *TTE3(S0,6)  *TTrl»  (S0.6)  *  PFRF(6'*  TDL(t?*6>* 
0  mSCPL ( 6 ) . MSRF J (6) .MOCPLt 12*6) *  MQor J (12*6) * wqtnT (1 2 . 2 ) * TW ( 12 . 6) 


_  COMMON.  J-AEliU-  5AEIU_4X*._Kjl_  ....  - 

6  MrSS (2*2) *  CmSG*  CMSfiN0{Sn*2) *PASP(6) 

COMMON  SEGS( 200 *7).  TTYC(?00)*  rC ( 1 2 *  5 > , ATPM*  IMFOLS(2on), 


♦TtSUm***  ***itsum*** 


40* 

1 

T3  T4  TS 

41  * 

2 

15h  TYPr  C',DL .  / 

42* 

2 

(  IT.  T15i  SF1 3 • 1/ ) ) 

43* 

30 

CONTINUE 

44* 

00  SO  IMS  1 .  Immax 

4S* 

00  SI  L  =  1*2 

46* 

MUlMT(IH.L)  =  MllINT(TM,L)  + 

moInT  ( IM.I. ) 

47* 

SI 

CONTINUE 

4  fl* 

00  50  M  =  1,  M£NS 

40* 

J  =  1 

SO* 

IF (  m  ,GT.  MFN ( 1 ' )  J  =  2 

SI  * 

MUCO,,D  ( IH  *  J)  =  MllCOMP(lH.J) 

♦  MOCPL(TH.M) 

S2* 

MIJRp  )( IH*  J)  =  MUREJ(TH.J)  + 

mopf J ( TW.M) 

S3* 

50 

CONTINUE 

S4* 

IF(ICHAIN.NF.O)  CALL  OUMPY1 

SS* 

return 

S6* 

eno 

♦♦♦MAIN*** 

♦♦♦main*** 
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I 


♦main*** 


***main*** 


p* 

_2l* 


4* 

5* 

_6*  . 
7* 
A* 

1  0* 

1  1* 

1  ?* 

1  "5* 

14* 

.  4-5t  - 
16* 

1  7* 

1ft* 

1  9* 

?n* 

?  1* 
??* 
?3* 
?4* 
?5* 


INCLUDE  COMBLK 

_ DATat(  IAITE(Ij  JtKlJ.l^ltlO)  #  J=1 #3)  *  K=l # 9) /2?0*0 . 0/ 

DATa<  (  (ADI  (I#J.K)  #1=1 #10)  *J=1  #3)  #K  =  1  #91/27(1*0.(1/ 

DAT  ft ( ( (PROS! (T# J»K) #T=1»10) , J=l»3> ,K=1 #o)/?70*0.0/ 

DATA  (CHAR ( I ) » 1  =  1 »  37)  / 

1  1 H I  #  1H2  #  1H3,  1 H4  #  1  H5  #  1H6#  1H7,  IMA,  1H9.  1H0#  1H  , 

?  iHA»  iHn»  ihc  #  i ho »  ihe#  imp.  ihg#  ihh#  ihi#  iwj,  ihk# 

..  3-  1HL#  1HM#  l.HN#  1H0#  1HP#  1H0#  1HR  #  IMS#  1HT »  1MU.  1HV#  1HW# 

4  1HX »  1HY  #  1 H?  / 

data  (frhr(D #i=i*i2)/t2  *  0.0/ 

I  PAGE  =  1 

in  continue: 

CALL  SIMPAM 

IF  l  ICHAIN  .EG.  1)  CALL  CHAIN 
CALL  PEOPLE 
CALL  HOUR 
CALL  ERROR 
IENn  =  0 
15  CONTINUE 
.  IF l  ORO ( 7 )  .EQ. 

IF (  I END  .EO.l) 

IF ( ORO (9)  .EQ. 

IF  (  ORO  (.8 )  .EO. 


CHAR ( 1 ) )  CALL  EXPER(IEND> 
GO  TO  999 

CHAR(l))  CALL  casein 
CHAR ( 1 ) )  CALL  COMPU 


00  14(1  NSHF  =  1  #  MSHIFT 


?6* 

C 

SUBROUTINE  RESET  PREPARES 

5>7*_ . 

_ 

30 

CALL  RESET  _ _ 

?ft* 

c 

HEW  SHIFT 

?9* 

40 

CALL  9AKL0G 

30#-  -  - 

60 

CALL  MESGEN 

31  * 

CALL  MANOET 

3?* 

call  reshr 

33* _ 

_IF(_- -SHFXOK  CHAR-C3&)  1 

34* 

GO  TO  60 

35* 

c 

ALL  MESSAGE  PROCESSING 

C0NOITI0N9  for  start  OF 


GO  TO  130 

IS  HAMDLEO  tN  herp 


f 


♦MaIN***  ***^atn*** 


36* 

130 

CALL  ITSUM 

37* 

c 

prints  out  shtft  results 

38* 

140 

CONTINUE 

39* 

c 

RUN  ANALYSIS 

40* 

c 

PRINTS  SHIFT  SUMMARY 

ACROSS 

iterations 

41* 

4?* 

CALL  RUNSUM 

4  3* 

REAO (7*160)  IREp 

44* 

160 

FORMAT(  ID 

45* 

IF (  IPEP  .EO.  1  1  GO 

TO  10 

46* 

ISO 

CONTINUE 

47* 

IF( TCHATN.NF. n )  CALL 

totit 

44* 

IP(  ORO ( 7 )  .EO.  OMAR ( 1 ) )  CALL  SUMMER 

49* 

I F (  ORO ( 7 )  .EO.  CHAR  < 1 ) )  GO 

TO  15 

SO* 

999 

CONTINUE 

Si* 

END  RTLE  2 

52* 

END 

***mandet  *** 

***mandet*** 

1* 

SUBROUTINE  MANOET 

2* 

C 

SELrCTS  MAN  AND  MESSAGE  TO  PROCESS  AS  WFLL 

3* 

C 

AS  DETERMINING  WHEN  HOUR  IS  OVER  EITHER  DUE 

4* 

C 

TO  ALL  MESSAGES  COMPLETED  OR  ALL  MEN  FINISHED 

S* 

include  comrlk 

6* 

10 

CONTINUE 

7* 

C 

RORCE  COMPLETION  OF  ALL  TNTfruPTP"  mfSS«GES  FIRST 

6* 

IF<  KINKS  ,LE.  0  )  GO  TO  19 

9* 

DO  15  MINT  =  1.  MENS 

1  0* 

IF (  INTRPT(MINT)  .NE.  1)  GO  TO  15 

1  1  * 

KINKS  =  KINKS  -  1 

1  2* 

MSEL  =  MINT 

13* 

M  =  MINT 

14* 

GO  TO  80 

IS* 

15 

CONTINUE 

16* 

19 

Continue 

17* 

C 

CHECK  IP  ALL  MEN  HAVE  FINlSHFn  OUT  rwr  HOUR 

16* 

IF  (LDONE  .GE.  MENS)  GO  TO  500 

1  a* 

20 

CONTINUE 

20* 

C 

SELECT  THE  mah  WTTH  LOWFST  TTme  USEn  WHO  IS  AVATLARl  E 

21* 

ZTEST=360000, 

22* 

DO  30  M=l»  MENS 

23* 

IF  (AVAIL(M)  .NF.  CHAR(l)  .OR.  7(M)  . GE,  ZTFST)  GO  T0 

24* 

ZTEST  =  Z(M). 

25* 

MSEL  =  m 

26* 

30 

CONTINUE 

27* 

M  =  MSEL  _ _  .  .  .  . 

28* 

IPC  TNTRPT(M)  ,fo.  l  )  GO  TO  no 

29+ 

C 

IF  G3  WAS  SELFCTEO,  SFE  IF  OTHERS  ARP  WORKING  AND 

—  -  an* 

-  -  c 

- - 

-MESSAGE PJUOittTY -IS--GREAJES  THAW  l 

31* 

35 

continue 

32* 

IF  (MSEL  .NF.  MEM(D)  GO  TO  80 

♦MaNDFT*** 


***manoft*** 


33* 

c 

.SET  UP  G3  QUFUE  FOR  RFVlr#/ 

34* 

MS  =  MESS  (1.1) 

35* 

DO  70  MSG  =  1 » MS 

3ft* 

IF  (PRIORI  MSG  *  1 )  .LT.  2  .OR.  OUT(MSG»!)  .ME.  CHARUD) 

GO 

37* 

IF  (Z(MSEL)  -  TAR I V ( MSG » 1 ) )  4ft.fl0*80 

3ft* 

40 

IDL(TH.MSEL)  =  TDLUH.msEL)  -  Z(MSEL)  +  TaRTV(msg.I) 

_ is*- 

Z  (  MSP|_  )  -  TAR  I V  ( WSG  t  1  )  . 

40* 

IF(  Z(MSEL)  .LT.  FNDHR)  GO  TO  20 

41* 

LDOnE  =  LDONE  +  1 

_ 42* 

AVAIL(MSEL)  =  CHAR (11)  . 

43* 

GO  TO  19 

44* 

70 

CONTINUE 

_ 4  St_ 

_c_ 

IF  THIS  POINT  IS  REACHFD  ThFSF  ARE  NO  MESSAGES  WORTmY 

4ft* 

c 

OF  G3S  ATTENTION 

47* 

LDONE  =  LDONE  '♦  1 

_ 4ft* 

_ _ 

_ 

AVAIL(MSEL)  =  CHAR(ll) 

49* 

DIF  =  3600.  -  IDL(IH>NSEL>  -  t iH. MSPL ) 

50* 

IDL ( IH»  MSEL )  =  IOL ( TH*MSEL )  ♦  DTF 

_ SI* 

_ 

JLiMSEU  =  ZIH  ♦  360Qj 

52* 

GO  TO  10 

S3* 

AO 

CONTINUE 

_ S4JL. 

_ c 

.  .  . 

SET  J  TYPE  OF  OPERATOR  SIMULATED 

SS* 

J  =  ? 

Sft* 

IF  (MSEL  .LE.  MEN  til)  J  =  1 

-52*- 

_ 

_ _ 

LEU  INTRPT (M)  .EO.  1  )  GO  TO  ?00 

Sft* 

c 

ARE  THERF  any  MESSAGES  LEFT  IN  THIS  OUEUF 

59* 

IF  (MESS(2»J)  ,GT.O)  GO  To  200 

-ftO*. 

-  c 

... 

IF  NOT  CLOSE  OUT  THE  HOUR  FOR  ALL  OPERATORS  OF  THIS  TYpF 

ftl* 

AS 

CONTINUE 

ft?* 

IF  (J  . EO • 2 )  GO  TO  90 

- 

_ ...  , 

IS  =  1 

ft4* 

IFN  =  MEN(l) 

ftS* 

GO  TO  100 

ftft* 

OO 

CONTINUE 

ft7* 

c 

REFORE  CLOSING  out  ion  for  HOUR ►  SFE  IF  G3-A0  FINESHFD 

ftft* 

IF ( MESS  (2#  1 )  .LF.  0)  GO  TO  95 

- <L9*. 

. 

MC  =  0 

70* 

MS  =  MEN ( 1 ) 

71* 

DO  92  MA  =  1 r  MS 

7?* 

IF (  AVAIL ( MA )  .ME.  CHAR(l))  MC  =  MC  +  1 

73* 

92 

CONTINUE 

74* 

IF (  MS  -  MC)  °5»  95 »  93 

7S* 

93 

CONTINUE 

7ft* 

ZTEST  =  369000. 

77* 

DO  94  MA  =  1.  MS 

7A* 

IF (  AVAIL(MA)  ,NE.  CHAR(l)  .OR.  Z(M)  .GE.  ZTEST)  GO  TO 

94 

70* 

ZTEST  =  Z(M> 

ftO* 

MSEL  =  MA 

ftt* 

.  . 

M  —  MSEL 

«?* 

04 

CONTINUE 

ft3* 

GO  TO  .5 

A4* 

... 

05 

CONTINUE 

AS* 

IS  =  MENU)  ♦  1 

Aft* 

IFN  -  MEN(l)  ♦  MFN(?) 

- A7*~ 

- -  — 

4  00 

CONTINUE 

AA* 

DO  110  M  =  IS t IFN 

AO* 

IOL ( IH* Ml  =  ♦  3600.  -  TM(TH*M1 

83 
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♦M.NOET*** 

***uANDFT*** 

qn* 

AVATL<M)  =  CHAR(ll) 

qi* 

IF  (Z(M)  .LT,  ZTH  ♦  3600.  >LdomE  =  L^NE*! 

q?* 

IF  (  7(M)  .LT.  (ZTH  ♦  3600.  ))  Z(M)  =  7TH  +  3600. 

q3* 

110  CONTINUE 

q4* 

GO  TO  10 

q*s* 

C 

CHECK  IF  THIS  MAN  HAS  AN  INTERUPTED  mcs^agF 

TO  COMPt  ETF 

qft* 

?00  CONTINUE 

Q7* 

IF  (TNTRPT(M)  ,nE.  1)  GO  TO  ?10 

q  ft* 

MSG  =  MSGIRP(M) 

qq* 

KM  =  MESS ( 1 » J) 

inn* 

DO  ?05  KL  =  1.  km 

lnl* 

I F (  CMSGNO(KL.J)  .NE.  MSG)  GO  to  ?05 

in?* 

MSG  =  KL 

103* 

GO  TO  207 

104* 

?05  CONTINUE 

..  105*  . 

WRITE ( 2 »  206)  MSG»J*M 

10ft* 

206  Format <  ihi  .  i9hcjmulative  mfssagee. n n.  i7H 

NOT 

IN  OUF"E 

1 07* 

1  14,  flHFOR  man  .  14) 

lnfl* 

?07  CONTINUE 

lno* 

intrptcm)  =  0 

110* 

MSGlRP(M)  =  0 

111* 

Go  TO  400 

li?* 

?10  CONTINUE 

113* 

C 

select  next  message  to  process 

_ 1 14*. 

ms  =  mess  ( 1 . J) 

115* 

MSGTEM  =  0 

lift* 

NOMSG  =  0 

117* 

DO  ?50  ML  =  1  *  MS 

11  0* 

IF  (OUT (ml* J)  .ME.  CHAR(ll))  GO  TO  R50 

no* 

IF  (TARIV(ML.J)  .GT.  7( Ml)  GO  TO  ?60 

. .  .  120* 

c 

I F (  °RlOR (ML . J)  .GT,  CHAR<1))  NOMSG  =  NOMSO 

♦  1 

l?l* 

I TEm=PR I OR ( ml , J ) 

1??* 

N0MSG=N0MSG+  TSTKNT(TTEM) 

1  ?3* 

IF  (MSGTEM. LE.O)  MSGTEM  =  ML 

1?4* 

IF(  RRIOR(ML.J)  .LE.  PRIOR  (.MSGTEM.  J)  >  GO  TO 

250 

1  ?5* 

MSGTEM  =  ML 

1  ?6* 

?S0  CONTINUE 

1?7* 

IF(mSGTEM.LP,  0  )  Go  TO  55 

l?ft* 

MSG  =  MSGTEM 

i?q* 

GO  TO  300 

130* 

?60  CONTINUE 

131  * 

IF(mSGTRM.LE.  0)  GO  TO  265 

13?* 

MSG  =  MSGTEM 

133* 

GO  TO  300 

134* 

?65  CONTINUE 

.135* 

c 

IF  NO  MESSAGE  HAS  ARRIVED  YET 

13ft* 

MSG  =  ML 

137* 

GO  TO  300 

_13A*  _.  . 

J>7D.  CONTINUE 

139* 

2B0  CONTINUE 

140* 

300  CONTINUE 

_ L4JL* 

_ LF l  T.ARI VtMSG^ JJ—jGEj.  1Z1H  ♦.  360CL.J  .AND.  J 

•  EQ. 

2)  GO  TO 

14?* 

I F (  TARIV(MSG.J)  .GE.  ENOHR)  GO  To  45 

143* 

c 

IS  THE  SELECTED  OPERATOR  READY  TO  PROCESS  THE  mcssagf 

J _ 144.* _ 

tf(  tmTppt(m)  .fQ^.  i  )  4 no -  -  - 

145*  IF  (7(M)  »GE.  TAPTV(MSG.J» )  GO  TO  310 

14ft*  C  IF  MOT  HE  IOLFS  "NHL  MESSAGE  ARRIVES 
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♦M.NDFT***  ***mANDft*** 


1u7* 

IDL(IH.M)  =  IOL(TH.M)  ♦  TARTV(MSG.J)  -  7<M> 

14R* 

IF  (  TDL(IH.m')  .GT.  3600.)  WR  TTe  ( 2 »  305)  IDL  C  TH.M)  . "  MSG,  7(M 

149* 

305 

FOQmAT ( 1H  ,  2DHIN  WAIT  FOR  MESSAGE  IDLE  IOL=»  F10.2. 

lsn* 

1  7H  MSG=  .  IS.  fiH  TIME  =  »  F10.2,  RHEQR  MAM  .  T5) 

1 5 1  * 

Z(M)  =  T  AR I V ( MSp , J ) 

is?* 

GO  TO  3?0 

1ST* 

310 

CONTINUE 

1S4* 

320 

CONTINUE 

lss* 

340 

CONTINUE 

_ lss* 

3S0 

CONTINUE 

1S7* 

C 

COMPUTE  STRFSS  LEVEL  based  ON  NUMRE°  OF  MESSAGES 

lss* 

C 

IN  O'lFUF.  NUMBER  OF  OPERATORS.  ANO  STRESS  TmREASHOLO 

1S9* 

A  -  *[OMSG  .  _ 

lsn* 

B  =  MEN ( J ) 

Isl* 

STR(M)  =  A/P 

Is?* 

c 

DOES  stress  exceed  twe  ^hreasmold  l^vel 

Is3* 

IF  (  STR  (  M)  ,  LT  .  STRM(M))  0,0  To  400 

lS4* 

IF  (PRIORI  MSG » J )  .NE.  1  .OR.  J  .NF.  ?)  GO  To  400 

_ IfxS* 

_ 

_DU.T I  _MSG » J)  =  CH*R  (2Q). 

lss* 

400 

CONTINUE 

167* 

CALL  ASPIRE 

lSS* 

c 

CALCULATES  ASPIRATION  AND  RESULTING  DACE  ADJUSTMENT  FACTOR 

1S9* 

CALL  FATIGU 

17D* 

c 

CALCULATES  work  FATIGUE 

_ 17.11 _ 

.  _ 

_ _ _ 

_jCAU.-PROC_ 

17?* 

GO  TO  10 

173* 

soo 

CONTINUE 

. 174* 

c 

HOUR  is  completed 

17S* 

hrO'/Ep  =  Char  ( 3S) 

176* 

RETURN 

_ 177* 

_ 

.  _  . 

END 

***mesgen*** 


***MfSGEN*** 


I 


_ J.* _ 

?* 

3* 

_ U Jt _ 

s* 

ft* 

7* 

P* 

q* 

— XSXt — 

1  1  * 
IP* 

-  13* 

1  4* 
t  ft* 

1  ft*  .  _ 
1  7* 
1R* 
IQ* 

?o* 

?i* 

-  -PRA¬ 
PS* 
?4* 

-PR* 

Pft* 

?7* 

?Q* 

30* 


SUBROUTINE  MESGEN 

c  creates  message  queues  including  merging  backlog 

include  comrlk 

j  =  i 

LZ  =  MESS ( 1  *  J) 

DO  200  MSG  S  1#  LZ 

c  messages  completed  are  zeroed  out 

IF (  OUT ( MSG ► J )  .EQ.  CHAR ( 14) )  GO  TO  100 
.  .  IFI  IC  .EQ.  MSG)  GO  TQ  J.90 

C  MESSAGES  INCOM°LETE  WILL  BE  MOVED  TO  THE  BOTTOM  OF  THE  QUEUE  TF 

C  THEY  ARE  NOT  ALREADY  THERE 

PRloR(lC.J)  =  PRlOR(MSG»J) 

LENTH(IC*J)  =  LENTH(MftG.j) 

TYPF(IC.J)  =  TYPE(MSG.J) 

T.A  RlV(ICfJ)  =  TARIV(MSG.J) 
tnuf(IC.J)  =  tnue<msg*j) 

NER(TC*J)  =  NFR(M<5G#J> 

MAN(TC*J)  =  MAN(MSG.J) 

IFTF(TC»J)  =  TFTF(MSGfJ) 

OUT (  TC.J)  =  out  < MSG  *  J ) 

- CMSQNQl  IC  -  CMSGwQXiiSG.-J)-  —  —  -  - - 

IF ( OUT ( IC  *  J )  .EQ«  CHAR(2D)>  OUT(IC.j)  =  CHAR(ll) 

IC  =  TC  ♦  1 
--4QO  CONTINUE 

PRlnR(MSG.J)  =  CHAR(11 ) 

LENTH(MSG.J)  =  0 

-C - I ART VI  MS&.U1  —  0- - 

TART'/fMSG.J)  =  T7ERO 
TNUr(MSG.J)  r  0 
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87 


1 


t 

♦  MrSGFM***- 

***mESGfn*** 

t 

as* 

C 

OETERMINF  mfsGAGF  PRIORITY 

no* 

call  r  andu <  py  * i ) 

qn* 

DO  210  IP  =  1*5 

Ol* 

IF(RY  .GT.  PREPdPfTHn  GO  TO  210 

P2* 

PRIOR ( MSG  *  J )  =  IP 

P3* 

GO  TO  220 

q4* 

2 1  0 

CONTINUE 

Q5* 

220 

continue 

Q6* 

C 

OETERVINF  MESSAGE  LENGTH 

q7* 

call  randn  (ry,rd,o,d 

q.n* 

IT  -  TYPE(MSG*J) 

qq* 

TLEN  =  I MC (IT)  +  py  *  I NS ( T T )  +  .4POQ 

inn* 

1F_L  TLEN  .LT,  (TMC(IT)/10.)>  Tlfn=  TNC(IT)  /  lo. 

lnl* 

LENTH(MSG*J)  =  TLEN 

102* 

CMSG  =  CMSG  +  1 

103* 

rTYc(CWSG)  =  TYPE (MSG* J) 

ln4* 

IPRT (CMSG)  =  PRTOR(MSG.J) 

Ins* 

SEGS ( CMSG * 1 )  =  TAPTV(MSG»J) 

1  ns* 

X34SG.NO  ( MSG  *  J )  =  CMSG 

ln7* 

TNUr(MSG*J)  =  0. 

Inn* 

NER ( MSG*  J )  =  0 

_ Lao*. 

MAN ( MSG  * J )  =  CHAP ( 1 1 1 

li  n* 

IFTr(MSG* J)  =  0 

li  l* 

OUT ( WSG  *  J)  =  CHAP(ll) 

— 142* _ 

..  _ 

IF  ( MSG .  GE  •  50  )  GO  TO  .310 

113* 

290 

continue 

114* 

300 

CONTINUE 

US* 

310 

ICF=MSG 

li  S* 

MESSU'l)  =  ICF 

1  1  7* 

MESS (2*1)  =  ICF 

_  14  a* _ 

C 

.  SFT  QUEUE  IN  ORDFR  0C  MESS AGr  AROTv/AL 

liq* 

DO  400  VSG  =  1*  TCF 

120* 

MC  =  MSG  +  1 

121* 

IF (  MC  .GT.  ICF)  GO  TO  400 

122* 

DO  3Pn  MG  =  MC *  ICF 

123* 

IF  <  T  AR I V  (  MSG  *  J  )  .LT.  TAP  T  V  (  MG ,  J )  )  Gn  T0  3qn 

- 124* _ 

IF  ( TAR  IV  ( MSG  ►  J )  .EQ.  TARTV(mg.j)  ,Ak'0.  PRIOR(mso,j)  .Gf. 

12S* 

1  PRIOR ( MG  *  J) )  GO  TO  300 

126* 

PRlORT  =  PRTOR(MSG.J) 

127* 

LENTHT  r  LENtm<vSG»J) 

4 

lpn* 

TYPfT  =  TYPF(MSG.J) 

12P* 

TARTWT  =  TAR  I'M  MSG *  J) 

130* 

CMSgt  =  CMSGNO ( MSG  *  J) 

131* 

PRIOR ( MSG  *  J)  =  pPIORfMGr  D 

132* 

LENTH(MSG*J)  r  LENTHfMG,  1) 

133* 

TYPF(MSG*J>  =  TYPE(MG*U> 

- 

134* 

TART'MMSG*  J)  =  TARTV(MGfJ) 

1 3S* 

CMSGNO ( MSG *J)  =  CMSGNO <  MG ►  J) 

136*  . 

PRIOR ( MG *J)  =  PRlORT 

137* 

LENTH(MG* J)  =  lfntht 

13S* 

TYPf(MG*J)  =  typft 

139* 

TARTV(MG»J)  r  TrtPIVT 

l4n* 

CMSGNO (MG* J)  =  GMSGT 

141* 

■»OQ 

CONTINUE 

14?*- 

_ 4110 

CONTINUE 

143* 

IE (  OP0 ( 2 )  *NE.  CHAR ( t )  )  GO  to  435 

144* 

C 

WPTTE  OUT  A0-G3  HOUR  OUEI'r 

88 

1 

»McrSGFN*** 


***MESGfM*** 


ms* 

14ft* 
147* 
l4fl* 
144* 
lsn* 
lftl* 
lft?* 
lft. 3* 
lft4* 
lftft* 
lftft* 
lft7* 
lftft* 
lftQ* 
lftft* 
lftl* 
lft?* 

_ lft3* 

lft4* 

lftft* 

lftft* 

lft7* 

lftft* 

lftft* 

170* 

171* 

17?* 

171* 

174* 

17ft* 

17ft* 

177* 

17ft* 

17ft* 

lflO* 

lftl* 

lft?*  . 

lwi* 

1«4* 

lftft* 

lftft* 

1«7* 

lftft* 

lftft* 

lftO* 

lftl* 

lft?* 

.193*  .. 

1Q4* 

lftft* 

_ JLftft* _ 

lft7* 

lftft* 

_ 190.*..-. 

2fi0* 

2P1  * 


_ WRITE ( 2 ,  _40.ft)_  IPFNT,  TPA6E _ _ _ _ _ 

405  FORmATF [HI .  15X *  12A6*  13X.  SHPa&£  .'  T4/1 
IPAftE  =  IPAGE  4-  1 
WRITE (2, 410)  IH 

410  FORMAT ( 1H  *  ftX,  43HMFSSA6ES  G^NFRATFO  OR  CARRIED  OVFR  FOR  H0UR.T5, 

1  8H  FOR  G3// 

2  47h  ORDER  ARRIVED  PRIORITY  TYPE  LENGTH. 

?  62h  OUTCOME  TOTAL  ERROR  INTERUPTEO  CUMULATIVE 

3/llX*  5H(SEC).  43X .  18HUN0ET  ERR  RETURNS. 

4  5X,  25HMAN  ELEMFNT  MSG  NO//) 

DO  430  MSG  =  1.TCF 

WRITE (2.420 )  MSp,  TARIV(MSG.J) »  PRIORI MSG. J) »  TYPE(MSG.J). 
1LENTHIMSG. J) »  OIJT(MSG.J).  TNUFtMSG.J).  NER(MSG.J).  MAN<MSG.J>, 

3  IFTE(MSG.J).  CMSGN0<MS6» J) 

420  FORmATUH  .  14.  E13.1,  6X»  II,  ftX.  II.  112.  7X»  Al»  Ill. 

1  19,  ftX.  II.  110*  II?) 

4^0  continue 

435  CONTINUE 
IC  =  l 
J  =  2 

IF { MESS ( 1 , J)  .LF.  0)  60  TO  SftO 
LZ  =  MESS(l.J) 

DO  ftOO  MSG  =  1.  12 

C  MESSAGES  COMPLETE"  ARE  ZFROIfD  OiiT 

IF (  OUT (MSG, J)  .Eft.  Oft AR ( 14 ) )  GO  To  400 
C  MESSAGES  INCOMPLETE  WILL  nr  MOVEn  TO  ThE  BOTTOM  OF  THE  OUEUE  IF 

C  THEY  ARE  NOT  ALREADY  THERr 

IF (  IC  .EQ.  MSG)  SO  tq  *95 
PRloR(TC.J)  =  PRTOR(mSg.J1 
LENTH(IC.J)  =  LrNTH(MSG. J) 

TYP^(TC.J)  =  TYPF(MSG.J) 

TARTV(ICJ)  =  TARIV1MSG.J) 

TNUr(IC.J)  =  TNUE1MSG.J) 

NER(TC.J)  =  NFR(MSG.J) 

MAN ( IC , J )  =  MAN(MSG.J) 

IFTF ( IC »«J)  =  TFTF(MSG.J) 

OUT (  TC.J)  =  OUT ( MSG*  J) 

CMSGHO(IC.J)  =  CMSGNOJMSG. J) 

IF(OMTIIC.J)  .Eo.  CHAR<2«»))  Ol  IT  ( I C  » ,  I )  =  CHAR  (11) 

IC  5  IC  ♦  1 
uftO  CONTINUE 

PRIoRlMSG.J)  =  0 
LENTH(MSG.J)  =  0 
TYPfIMSG.J)  =  0 
C  TARIV(MSG.J)  =  0. 

TARTV1MSG, J>  =  TZERO 
TNUE(MSG.J)  =  0 
HER (MSG, J)  =  0 

.MAN  ( MSG.  J)  .=  0  . .  _  ...  ...  ..... 

IFTFtMSG.J)  =  0 
OUT (MSG. J)  =  CHAP (11) 

. . Ga  TaJSoo.  _ _ _  — . -  -  — 

«P5  IC  =  YC  +  1 
soo  CONTINUE 

LOGftAC ( IH. 2)  =  TC  *  LOGRACCTH,?) 

MESS(I»J)  =  IC 
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*«c-SGEM*** 


***mESG=7j*** 


2n2* 
2ft3* 
204* 
205* 
2oft* 
2o7* 
2oa* 
209* 
2in* 
21 1* 
212* 
21  3* 
214* 
21  5* 
2 1ft* 
217* 
21  o* 

219* 
221 1* 
221* 
222* 
2.23* 


_ MES5(2*J)  =  TC _ 

IF t  0R0('2)  .ME.  CHAR ( 1 )  )  GO  T0  580 
IF t  Tc  .LE.  0  )  GO  TO  580 
WRITE ( 2  *  540  )  TOENT.  TPAGE 
840  FORvATdHl.  15X.  12Aft*  1 3X  *  5HPAGE  ,  T4/) 

IPAGP  =  IPAGF  +  1 
_ WRITE ( 2  ^550 ) 

550  FORmATI  1H  *  RX*  23HTOP  STARTING  HOUR  QUEUE// 

2  47m  ORDER  ARRIVED  PRIORITY  TYPF  LENGTH, 

2  62m  OUTCOME  TOTAL  ERROR  INTERUPTFO  CU»»ULATTVr 

3/1 lx  *  5H ( SEC ) *  43X.  I 8HUNDET  FRR  RPTURN5 , 

4  5X  ,  75HMAN  ELEMENT  MEG  NO//) 

DO  570  MSG  =  1 *  IC  _ 

WRITE ( 2 »  560 )  MSG*  TAPI  V t MSG*J) *  PRIOR (MSG* J) *  TYPE(MSG»M. 
1LENTH1MSG* J) .  OUT ( MSG  *  J) *  TNI  IE < MSG. J) *  NER(mSG,J),  waN(msg.J)* 

3  IFTEIVSG* J) .  CVSGNOJMSG. J) 

SftO  FORviATCIH  »T4*Ft3.l*ftX»Il*PX*Tl#It2*7X*Al*Ul* 

1  19,  OX ,  II.  Tin*  112) 

570  CONTINUE 
580  CONTINUE 
RETURN 
END 


*-♦ tPF QPLETa* _  „***PEDPLE***.  . 
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_  1* 

SUBROUTINE  PEOPLr 

p* 

C 

p^ans  in  performance  oapaotltttec  of  tops  and  aos 

3* 

InCi.IIOE  COVfn.K 

_ii* . 

_ _ _ 

8EA3C>*50>  tskip 

5* 

so 

format ( T l ) 

ft* 

IF (  TSKIP  .fo.  1)  GO  TO  IPO 

...  _7*_. . 

c 

READS  I N  NAMES  OF  PRRSONNrl 

ft* 

REAR  (7»°n)  (NAME(M).  w  =  1,vf»is) 

o* 

no 

FiPR'i  AT  (  ftA6  ) 

_ jfl.t . . 

DO  110  MM=  1»  MENS 

1 1* 

REAft  ( 7 » 100)  M »  F  ( M )  t  PREC  («)»  STRM(**)»  aSP(m) 

i?* 

1  00 

FORMAT(I!»  Sy#  PFS.3,  F5.0»  fs.3) 

„13*. 

PASP(U)  =  ASP ( Ml 

1  4  + 

110 

CONTINUE 

1  s* 

IPO 

continue 

ift*  - 

.  _ 

IF.( ORO ( 1 1  .ME.  CUAR(D)  SO  TO  POO 

17* 

WRlTF ( 2  » 150 ) 

1  ft* 

1  so 

FORMAT ( 1 H  t  30X.  lPHOPERATOR  PARAMETERS// 

1  o* 

l  12y »  3HMAN»  ftX#  5HSPEED .  3Y.  OMPRE^TSTOM. 

pn* 

?  ftH  STRESS  »  10MTHRESH0LO  f  RVr  10HASPIP ATTON/ ) 

?1* 

00  170  M  r  1 ,  MFNS 

pp* 

WRlTE(2.160)  NAME(M)  »  F  ( M )  »  PREC  ('«)  »  STrM(M).  ASP(M) 

?3* 

IftO 

FORMAt(1H  »  11Y.  Aft.  PF10.P.  c14 . 2 »  ^15.3) 

?4* 

170 

CONTINUE 

PS* 

POO 

CONTINUE 

Pft* 

return 

P7* 

END 

***P0IS***  ***°OIS*** 
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I 


....  1* 

SUBROUTINE  P0I5(AM*RY,IP0) 

?* 

c 

SUPPLIES  RANDOM  NUMBERS  PROM  A  POISSON  DTSTRTRUTTON 

3* 

c 

T°0  =  INTEGER  PROM  A  °OISSON  OlSTRTnuTlON 

i  4* 

C 

(\M  =  A  MP AN  -  ONLY  NtlMREP  RPOUIRPD 

S* 

IPD  =  0 

ft* 

CALL  RANDU(RY*1) 

7* 

10 

continue 

fl* 

IF (  RY  .LE.  (PXR(-AMM)GO  TO  SO 

!  q* 

PI  r  RY 

in* 

IPD  =  IPD  +  1 

1 1* 

CALL  9ANDU ( pY  *  1 ) 

ip* 

RY  =  RY  *  R 1 

13* 

GO  TO  10 

14* 

so 

CONTINUE 

IS* 

RETURN 

t  1 f>* 

END 

***PROC*** 

I 

***PROC*** 

1 

1* 

SIJ3ROUTINE  RROC 

P* 

IMCLUOE  COMBLP 

3* 

OIMPNSION  £RRf 4) 

4* 

OIMPNSI.OM  AVPR3(?0*4) 

5* 

EOUT VALENCE  (  AVpROR*  AVRRB ) 

S* 

c 

CALCULATE  STRESS  FACTOR  FOR  MESSAGE 

7* 

SF  =  0. 

«* 

ZIF  =  1. 

q* 

TmIn  =  0. 

’  i  n* 

IF (  STP(M)  ,Lr •  1.  )  50  TO  1 

I  ii* 

SF  z  (STR{v)  -  1  .  )/(STRM(M)  -  i.) 

ip* 

ZIF  =  -1  .fl2°*SF**3  +‘A«47°*SF**P  -2.3SI  *  SF  +  1  .  , 

'  1.3* 

IF.(  SF-  ,G£.  1)  ZIF  =  ,292.  _ 

14*  3  continue 

IS*  C  oETERMTNc  APPROPRIATE  Task  ANALYSTS  FOR  this  MESSAGE  TYPE 

4A* _  -  IT-.-S  TYPE (MSG* J) _ - .  . . . . -  -  - 

17*  K  =  MTMJfTT) 

1«*  MCUm  =  CwSGNO(MSS» J) 

1U* - -c - SET— UP— ERROR- SAIF  -MATRIX  -POR  THIS  TYPE!  OPERATOR 

?0*  IF (  J  .PQ.  ?  )  GO  TO  S 

PI*  OR  4  IE  =  1*4 
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<*&*&*** 


I 


♦PoOC*** 


***PROC*** 


ERP  ( I  El  =  EPPGdF) _ _ _ 

4  CONTINUE 
60  TO  7 
^CONTINUE 

DO  6  IE  =  1*4 
ERP(IE)  =  ERPKIF) 

6  CONTINUE _ 

7  CONTINUE 
NERP  =  0 
TIME  =0. 

IF (  0R0 (4)  .NE.  CHAR(l))  SO  To  30 

s-'RINT  OUT  START  OF  MESSASE  PROCESSING  PARAMETERS 
WRITE (2*8 )_  IOENT * _ IPASE _ 

8  FORMAT ( 1H1 *  1SX»  12A6.  13X.  5HPA6E  *  14/) 

IPAGE  =  IPASE  +  1 

WRITE(2*9)  MCUM#  NAME(M).  IDAV*  NMTYP(IT).  ZIF,  IH* 

1  MSG*  PAFW*  NSHF*  PAFA*  IOL(lH*M)*  TARlV(MS6. J) *Z(M) 

9  format (ih  *  9X.  14hmfssase  numrfr*  T6* 

2  24 h _ MAN  _  .  .  .  A.6*  13H  DAY* 


8  /2SH 

9  /24H 


DAY*  112* 
STRFSS  FACTOR  * 


FATTGUE,  F13.2* 


TIME  .  . ISFR)  ELEMENT* 
RFTURNS  INTrp//) 


2  /26H  MESSAGE  TYPE  *  A6*  21H  STRFSS  FACTOR  * 

3  F7.2*  16H  HOUR*  III* 

- _4  /23H  MESSA6E  ORDER*  17*  1TH  FATIGUE.  F13.2* 

5  21H  ITERATION*  16. 

6  /4(iX.  10HASPT RATION*  FtO.2*  * 

_  J  /*UlXi..  9HOJM*_lQLE*.  PJJU2* _  . 

8  /2SH  MESSAGE  ARRIVAL*  FlO.t* 

9  /24H  MESSAGE  START  .Fll.l  //) 

WRITE(2*20) 

20  FORMAT (1H  .  OY,  31HELEMENT  FXECUTION  CUMULATIVE  * 

1  S6H0IJTC0ME  TYPE  OF  CRITIC  SEGMENT  ERROR  ERROR  / 

.  .  2  lXX-L-  3HN0 . *  35HJIME  ...  TIME  .  _  LSFR)  ELEMENT. 

3  44h  -ALITY  ENDED  TYPF  RFTURNS  INTrp//) 

30  CONTINUE 

IF(..  OUT  (MSG*  J)  .EQ.  CHAR(29))  GO  TO  512 
ST  z  7<M) 

I  =  1 

_ SET  UP  FOR  InTESUPJED  MESSAGE  IE  THERE  IS  ONE  TO  BE  PROCESSED 

IF  (IFTE(MSS*J>  *LE.  0  >  GO  TO  40 
ST  =  START(M) 

I  ~  IFTE<MSG.J) 

MAM(MSG. J)  z  0 
0ijT(MSG*J)  =  CHAP  (11) 

NERP  z  INT(M)  . .  ..  ... 

INT(M)  r  0 
INTRPT1M)  z  0 
MSGTPP(M)  z  0 
IFTp(MSG.J)  z  0 
STAPT(M)  z  0, 

- GO -10-20 - _ _ _ _ 

40  CONTINUE 

DCTFRMlNE  if  message  is  REJECTED  BY  G-3 

- Mr. (J.NE.l.OR.JTYPE(T.K).NE.  1  .OR.  PRIOR CMS6*J)  .GT.  1) 

1  GO  TO  65 
CALL  RANDU(RY*1) 

- IF-  (-RY.-LE.  A-VgRR  ( I  *  X )  1  SO  -  TO  65 

60  OUT (MSG. J)  z  CHAR ( 29) 

GO  TO  512 


I 


*Pt>OC*** 

***PR0C*** 

79* 

- 

65 

CONTINUE 

80* 

NERR  =  NER<MS0»J)  - 

81* 

67 

CONTINUE 

A?* 

IF<  J  .EO.  1  .AMO. I  .EO.  1  )  SFGS(MrUM»2>  =  Z(M) 

AS* 

C 

starting  point  for  task  flement  processing  cycle 

A4* 

70 

CONTINUE 

AS* 

c 

CALCULATION  OF  INTERUPT  OUPATI0N  ANO  OcCUPRANCE 

86* 

TmIn  =  0. 

A7* 

c 

THE  FOLLOWING  RYPASS  ASSUMES  DIMENSIONS  OF  10  TASK 

AA* 

c 

AND  3  TASK  ANALYSES 

«9* 

IF (  I  .GT.  lo  .OR.  K  .6T.  3)  go  TO  77 

90* 

DO  76  II  r  t.ITYMAX 

...91* 

IF (  PROnI(I»K»IT)  .LF.  0.)  GO  To  ’6 

9?* 

CALL  RAMOU (RY » 1 ) 

93* 

IF (  RY  .GT.  PROAT ( I *K» It) )  GO  TO  76 

94* 

CALL  RANDN (RY#RD*0.»  1.) 

qs* 

TMlN  =  RO  *  ADI (T*K*TI)  +  AITr<T,K»TT) 

qft* 

GO  TO  77 

_ 97* 

_  ....  . 

76 

CONTINUE 

QA* 

II  =  0 

99* 

77 

CONTINUE 

_ loo* 

c 

DETERMINE  IF  ACTION  UNIT  IS  A  DECISION 

Ini* 

IF  ( .ITYPE  ( I  * K )  . NF •  3  >  GO  TO  9o 

in?* 

CALL  RANOU ( PY *  1 ) 

103* 

IF  (OY  .GE.  AVPPR(I»K>)  GO  TO  80 

104* 

SIF  =  CHAR130) 

ins* 

GO  TO  250 

.106* 

80 

CONTINUE 

107* 

SIF  =  CHAR (17) 

Ins* 

GO  TO  250 

Jj09* 

c 

DETERMINE  IF  AN  EOUIPWENT  ACTION  UNIT  IS  INVOLVFD 

lm* 

90 

IF  (JTYPE(I»K)  .ME.  4  )  W  TO  tin 

1U* 

CALL  RANDN (RY»Rn#0. t  1.) 

li?* 

TIMf  =  AVGTM(I,k)  ♦  RD*SIGMACT»K) 

lis* 

IFlTTME  .LT.  (AVGTMIT.K)/  3.  ) ) TIME  =  AVGTM(I.K)/  3. 

114* 

CALL  RANOU(PY.l) 

.  115* 

IF  (RY  .GE.  AVPRR(I,K)>  GO'TO  100 

116* 

SIF  =  CHAR130) 

117* 

GO  TO  350 

118* 

100 

SIF  r  CHAR( 17) 

119* 

GO  TO  350 

i?n* 

110 

CONTINUE 

l?i* 

c 

DETERMINE  NUMBER  unnoted  ERRORS  THIS  TASK  ELEMENT 

l??* 

c 

FOR  TOANSFORM  OPFRATTON 

1?3* 

POO 

CONTINUE 

...  1?4* 

IF  (UETYPE(I»K)  .NE.  CHAR (31))  GO  TO  210 

1?S* 

AL  =  LEMTH(MSG.J) 

1?6* 

IPD  =  0 

127*. 

_ 

.  -AM  z.  EPtn.1T)  *  AL/10O-.  ... 

1?A* 

CALL  P0IS( AM*RY» InD) 

i?q* 

TIEl (MSG»M)  s  ipn 

_ Lini.. 

_AM  -  rRiP.  in  j*  Ai./inn 

131* 

CALL  POIS(AMrPy, IPO) 

is?* 

TIE?(MSG»M)  =  Ipn 

_ m* 

JVM  =  FR  { 3»  IT)  *  AL/inn. 

134* 

CALL  P0IS(AM*RY» IPD) 

135* 

TIE3(MSG*M)  =  ion 

t 


-I  EMFNTS 
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***proc*** 


lw 

1.37* 

1.3fl* 

_ 139* 

fun* 

l4t* 

lu?* 
143* 
144* 
_ 145* 

14ft* 

147* 


155* 

l«?ft* 

lSft* 

1S9* 

_ lftn*  - 
lftl* 
lft?* 


_  AM  =  PR (4« IT)  »  OL/inn.  _  __  _  _ 

CALL  POIS(AmVpY.IPD) 
tie4(msg*mj  =  ipd 

TN|Uf  ( MSG » J )  =  ( T I E l <  MSG  *  M )  +T I  p?  f  MSG  *  M ) 
l+TIr3(MSG»M)  ♦  TTE4 ( msg *  J) ) *»RFC ( M)  TNUE(MSG.J) 

IRESH(I.IH)  =  IRPSH(I.IH)  *  TTEK^SG.M) 

_ IR££M(2,IH)  =  IPESH(?,'H1  ♦  TT£2<MSG.M) 

IRESH(3»IH>  =  IRESH ( 3. IH)  +  TTE3(MSG.M) 

IRESH(4,IH)  =  IRESH ( 4. IH)  «■  TTEU(MSG.M) 

IREST  ( 1  *  IT)  =  IRESm.IT)  +  TTEl(MSG.M) 

IREST (2 *  IT)  =  IREST(?.IT)  +  TTE?(MSG.M> 

IREST ( 3» IT )  =  IRPSTI3.IT)  ♦  TTE3(MSG»M) 

_ IREST ( 4  > IT )  ~  IPFST (4. IT)  +  TJE4  I  MSP. M) 

IRESH ( 7 . IH)  =  IRESH (7 . IH)  +  1 
IREST ( 7. IT )  =  IREST (7. IT)  ♦  1 

_  GO  .TQ  212 

?10  CONTINUE 

C  FOR  OTHER  THAN  TRANSFORM  OPEPATIPMS 

_ CALL  EANDUIRY.-IL 

IF  (RY  .GE.  UEP ( I *K ) *PREC ( M) ) GO  TO  ?l? 

TNUF(MSG.J)  =  1  ♦  TNUE(MSG.J) 

. — R12  CONTINUE 

C  DETERMINE  CUMULATIVE  NP.  UNMOTEn  ERoPRS  TO  GENERATE  ERR  RESPONSES 
IF  (  HFTYPE(T.K)  .NE.  CHAR(31)>  GO  TO  ?1S 

-C _ FOR  TRANSFORM  ERRORS 

AM  s  TIEl(MSG.M)  *  £RP(1) 

CALL  POIS(AM.RY.IPO) 

NER(MSG.J)  =  MER(MSG.J)  +  IPD 
AM  =  TIE2 ( MSG.M)  *  ERP(2) 

CALL  POIS ( AM»RY. IPO) 

_  _ NERCS4SG.  J)  =  MEP  ( MSG .  J.Il  .♦  IPO 

AM  =  TIE31MSG.M)  *  ERPI3) 

CALL  POIS ( AM. RY. IPO) 

NER (MSG. J)  =  NER(MSG.J)  +  IPD 
AM  =  TIF4 ( MSG »  M)  *  ERP<4) 

CALL  POIS(AM.RY.TPO) 

NER(MSG.J)  =  NER (MSG. J)  ♦  IPO 

IF (  NER(MSG.J)  ,GT,  20)  NER(MSG,J>  =  ?0 

MERR  =  NER  ( MSG  .<J> 

GO  TO  220 
?15  CONTINUE 

CALL  RANOU(RY.l) 

IF l  RY  .GE.  ERP(  D)  GO -TO  250 
IF (  NER ( MSG* J)  .GT.  20)  GO  TO  250 
NER (MSG. J)  s  NER<MSG»J)  ♦  1 
NERR  =  NERR  «■  1 
??0  CONTINUE 

C  CALCULATES  TASK  ELEMFNT  EXECUTION  TTMF 

•»50  CONTINUE _ _ 

CALL  RANDN(RY»RO*0..  1.) 

V  =  AVGTM(I.K)  «■  R0*(Sr6MA(T»K) ) 

- TXMF--S  F1M)  *V*7IF*PAEA*PAFW 

IF(TIME  .LT.  (AVGTM(I.K)/  3.))  TIME  =  AVGTM(I»K)/3. 
c  check  if  time  is  a  function  of  message  lfngth 

- IS-  ( JTYPE1 1  »K)— »EQ. - 2 _ )  TIME  =  TIME*.  LENTh(MSG.J) 

c  determines  IF  INTFRUPTION  DUE  To  INCOMING  MESSAGF  Has  occurrfd 

IF(J  .NE.  2  .OR.  FRHR(IH)  ,LE.  0.0)  GO  TO  259 
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•PoOC*** 


***PROC*** 


193* 

199* 

195* 

...lqft* 

197* 

l9ft* 

199* 

200* 

2nl* 

_202* 

203* 

204* 

_ 2ns* 

20ft* 
207* 
20S* 
209* 
210* 
21 1* 
212* 
%  213* 

_ 214_* 

21  S* 
21ft* 


21  ft* 
219* 

_ 220* 

221* 

222* 

_ 223*„ 

224* 
225* 
226*  . 
227* 
22ft* 

_ 229*.. 

230* 

231* 

_ _ 232*. 

233* 

234* 

_ 235*. 

23  ft* 
237* 

_ 23ft* 

239* 

240* 


♦  AVPRB(I.K) 


IFCRY  ,6T.  ( FRHR ( IH) /3600 • V  *  TIWt>  GO  TO  259 

call  randucry.d  j  / 

TIME  =  RY  *  TIME  ,  \  ' — ’  >  / 

Call  randncry*rd*  /o.»i.) 

TmIN=RD*SOINCIH)  VnuRINCIH) 

JI=10  . . _ 

STF=  CHAR  120) 

SETTING  I  TO  1  ASSUMES  TASK  FLEMFNT  2  SHOULD  BE  EXECUTED  NEXT 
1  =  1 
GO  TO  350 

>  continue 

MODIFY  ORIGINAL  SUCCESS  PROBABILITY  AS  FUNCTION  OF  PRECISION 
IF  (PREC(M)-l.)  260*270*200 

l  PROR  =<1.  -  AVPRB(I*K))*  (1.  -  PREC(M>)*  5*  ♦  AVPRBC I»K) 

GO  TO  290 

I  PROR  =  AVPRBC I *K) 

GO  TO  290 

l_PROa=  AVPRR(I*K)  *  (5.  *  Cl.  -  PREC(M))  ♦  1.  ) 

DETERMINES  IF  TASK  ELEMENT  IS  A  SUCCESS  OR  NOTED  FATLURF 
I  CALL  RANDU(RY*1) 

IFC  STRCM)  «LE.  (STRMCM)/  4.))  ftO  TO  294 
IFC  ASP  CM)  ♦  1.  .LT.  PROB)  GO  TO  294 
IFC  STRCM)  .LF.  STRMCM))  GO  TO  ->92 
IFC  RY  .LT.  ASPCM))  GO  TO  300 
GO  TO  295 
!  CONTINUE 

ZA  =  PROB  ♦  CASP(M)/3« )*C  C (4.  *  STR CM) ) /STRMCM ) )  -  1.) 

IFC  RY  .LT.  ZA)  GO  TO  300 
GO  TO  295 

►  IF  .CRY  _.LE.  PS0Bl.  6O  JQ.301l  .. _ _ _  _  _ 

i  SIF  =  CHARC17) 

GO  TO  350 

I  SIF  =  CHARC30)  ....... 

ADJUST  TIME  OF  CURRENT  WORK  AND  TOTAL  WORK 
I  ZCM)  r  ZCM)+  TIME  ♦  TMIN 
.  TWCIH*M)  =  TwCJH*M)  ♦  TIM£_*  TMIN 
LAST  TASK  ELEMENT  OF  A  TIME  SEGMENT 
IF  CENOC  I*K)  .EO.  CHAR  C  ID)  GO  TO  400 
.  IEK.  =  END!  I*K)  .............  .  _  . 

SEGSCMCUM*IFK)  =  ZCM) 

IS  THIS  A  TYPF  6  TASK  ELEMENT 

)  CONTINUE  _ _ .  .  .  . . 

L  =  I 

IF  CJTYPECI.K)  .NE.  6  )  GO  TO  450 

PERFORM  ERROR  RETURN.  IF.  INDICATED  ...  .  _ 

IF  C  NERR  )  410*910*420 
)  1=1 JSC  I *K) 


420  I  =  IJF C I *K) 

NOFAIL«M)snOFAIL1M)*» 
- NERR  3.  NFR8-  ■  I - - - 

GO  TO  500 

SET  U»  NEXT  TASK  element 
45fl-IFtSlF  .EQ.- CHARM 71)  fig 
I  =  I JSC  I »K ) 

GO  TO  970 


I 


*PoOC*«*i3  '  ***PROC*** 


250* 


460  I  -  IJF(I.K) _ 

T"  COUNT  FAILURE  /  SUCCESS  FOR  CRITICAL  task  elements 
470  IF  (CRIT (L*K)  .NE.  CHAR(14))  60  TO  500 
IF ( SIF  .EO.  CHAR (17))  60  TO  480 


254* 

255* 

256* 

TSRT 

2S8* 

Jssa*. 


NOSUC ( M ) =N0SUC ( M  >  *1 
GO  TO  500 
480  CONTINUE _ 


NOFAIL <H) =NOF A I L < M > *1 

C  DOES  THIS  TASK  ELEMENT  RUN  OVER  THE  HOUR 
500  CONTINUE 


C 

JL 


IF  (Z(M>  .LT.  ENOHR)  GO  TO  505 

RETAIN  CURRENT  TASK  ELEMENT  DATA  FOR  NEXT  HOUR  MESSAGE 
ALLOCATE  time  useq  in  this  hour  and  in  next  hour 
OIF  =  T*(IH»M>  ♦  IDL(IH.M)  -  5600. 

IFC  OIF  *6E*  0)  GO  TO  501 

IQU  IH*M1 .  -  DXF- 


GO  TO  503 
501  CONTINUE 
_ lMilH.-l.~li...  M)  -  S...D.IF. 


TM(IH.M)  S  TW(IH'M)  -  DIF 
503  CONTINUE 

LDOmE  =  LQONE  ♦  -1 . 

AVAIL(M)  =  0 

IF (  I  .LE.  0  )  60  TO  505 
IFTE(MSGiJ.l  =  1 _ 


■mm 


MAN(MSG.J)  =  M 
OUT(MSG.J)  =  CHAR<20) 
-SIARIIMX  _5.-ST  ..  .. 


278* 

270* 

280* 


281* 

282* 

283* 


284* 

285* 

286* 


287* 

2811* 

284*~ 


505  CONTINUE 

C  PRINT  OPTION  4  -  RECORD  TASK  rLFMENT  RESULTS 

- IF (  0R0I41-.NE.  CHAgU-L)-GO-JO  ,507 _  _ 

WRlTE<2  » 506) L *  TIME .Z(M) *  SlF. JTYPE(L.K) »  CRIT(L.K).  FND ( L  .  K ) . 
l  UETTPE(LiK).  NERR»TMIN»II 

- 506  EORmAXXIH  » I13jF14j-2»F1 l.2«5X» A1»9X» II »7X.A1»7X.I1»9X» 

1  Al.  I12.F6.2.  15) 

507  CONTINUE 
- IMIM 


290* 

291* 

2488 


243* 

244* 

245* 

246* 

247* 

-248*- 
244* 
3 m* 

-381* 


IF  MESSAGE  INCOMPLETE  OR  REJECTEO 
IF (  OUT(MSG» J)  .EO.  CHAR(29))G0  TO  512 
-XF l  0J)TtBS6iuil...Ea.  CHARI 20) )  GO  To  515 
LAST  TASK  ELEMENT 
IF (  I  .GT.  0)  GO  TO  70 


CALCULATE  INFORMATION  LOSS 
T  =  TNUE(MSG.J) 

C - a  =  INCUT)  - . . - 

C  INFOLS(MCUM)  =  ( (PUL, ♦TO.  *  PUS>  *  T>/ 

INFOLS(MCUM)  =  ((PUJ.  ♦  10.  *  t»US>  *  T) 
- INF-UWXIH1- =■■  INFLHRUH)  *  INFf)LS(MCUML 


.4499 

.4999 


302* 

303* 

.304* 


IRESHCG.tH)  =  IRESH(6*IH) 
IRESTI6.IT)  =  IREST(6*IT) 
8-  tRESH  (  5j-IH) 


IREST(5» IT)  =  IRESTC5.IT) 
IRESH(7. IH)  =  IRESH(7» IH) 
IREST(7iIT)  =  IRFSTf 7i TT) 


305*  508  CONTINUE 

306*  C  SET  TASK  ELEMENT  IF  COMPLETED 


TNFOLS(MCUM) 
IMFOLS(MCUM) 
MERC  MSG* J) 
NER(MSG.U) 

1 

.1 _ 
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*P dOC*** 

___  3P7* 

3nn* 
3(19* 
3i  n* 
31  1* 
31  ?* 
31  3* 
3l  4* 
315* 
3lft* 
317* 
31  ft* 
31  9* 
3?n* 
3?1* 
3??* 
3?3* 
3?4* 

_ 3?“=,* 

3?ft* 

3?7* 

3?ft* 

3?P* 

33(1* 

_ 331  * 

3.3?* 
333* 
334* 
335* 
33** 
337* 
33ft* 
339* 
34(1* 
341* 
34?* 
34.3* 
344* 
345* 
34ft* 
347* 
34  ft* 
349* 
350* 
351* 
35?* 
353* 
354* 

35ft* 

357* 

_ Z5B.1L. 

35P* 

3ftfl* 

3ft?* 

3ft3* 


***PROC*** 


_ IF  (  OUT  ( MS^*  JJ  .fO.QHArJ  UJ_)_  0UT(MSs*J)  =  CHAR  (14) 

MSCpL(M)  =  M^r PL (M)  +  1" 

MOCPL(IH.M)  =  MOC»L(IH,M)  ♦  1 

c  accumulate  mean  time  per  message  for  run  summary 

CMTmG(IH,M)  =  CmTMG(TH»m)  +  7  ( M )  -  FT 


c 


print  OPTION  5-RFCORO  RESULTS  OF  MESSAGE  segment 

IF (  ORO ( 5 )  .Nr.  CHAR ( 1 )  )  GO  TO  520 

IF(0HT(MSG» J)  .NF.  CHAR (141)  GO  TO  ftOO 

IF (  M  ,GT.  M£N(i)}  GO  TO  510 

WRITS ( 2  * 509)  MCI'M*  NAME<M),  TTEMMSG.M), 

1  TlF?(MSG»M),  TIF3(MS6*M),  TTF4(MSg*M) ,TNUE(MSG* J) » 

2  NEr(mSG*J1*  TNFOLS(MCUM) 

509  FORMAT ( 1 H  ,/lftH  MESSAGE  ,  14, 


/  ?3H 
/2ftH 
/  2tH 
/  -56H 
/  1  PH 


PR0CFSSFO  by  »  A6. 

transform  errors* 
commission*  It?* 
AftRFV/TYPO/SPAC»  I7' 
OMISSION  *  T 5  4 * 


5  /  ?2H 
ft  /  ?9H 
7  //  27H 
ft  /  2ftH 
GO  TO  5?0 


OTHFR  ERRORS*  Ill*  /30X*  4H - * 

TOT.  UNDET.  ERRORS*  14* 

NO.  ERROR  RETURNS,  Tft* 
INFORMATION  LOSS  *  T7/ ) 


510  CONTINUE 

WR ITE ( 2 * 51 1 1  mcijm*  NAME(M),  TTE1(MSG*m)* 

1  TIf2(MSG»M)»  TIF3(MSG,m1*  TTF4 (MSG* m> * TNUE (MSG. J) * 

?  NER(MSG.J).  TNFOLS(MCUM) 

511  FORMAT(  1H  ./16H  MESSAGE*  14* 

1  /  ?3H 
?  /2ftH 

3  /  ?IH 

4  /  ?6H 

4  /  19H 

5  /  ?2H 
ft  /  ?PH 
7  //  ?7H 
ft  /  ?GH 

GO  TO  5?0 

512  CONTINUE 
IF (  ORO (4)  .MF.  CHAR ( l )  )  GO  TO  514 
WRITEC2.513)  CMSGNO(MSG* J) *  NAMF CM) 

513  FORMAT ( IH  .  7HMFSSAGF.  15. 2Y*  1 3H  RfJFCTFQ  ftY  *  Aft) 

514  CONTINUE 

MQRfJ ( IH*  M)  =  MODEJ( IH*M)  +  1 
MSRFJ(M)  =  MSREJlM)  +  1 

MESS<2*J)  =  MESSf 2* J)  -  1 
GO  TO  600 

515  CONTINUE 


COMPLFTEO  BY  *  A6* 
transform  ERRORS* 

COMMISSION*  T12* 
ABREV/TYPO/SOAF*  IT, 
OMISSION  ,  T 1 4  * 

OTHER  ERRORS*  Til*  /30X*  4H- 
TOT.  t l*|OET •  ERRORS*  14, 

NO.  ERROR  RFTlIPNS,  Tft, 
INFORMATION  LOSS  *  17/ ) 


. IF (  0R0J4>  _.yr,  CHARM))  GO  T°  517 

WRITE ( 2 , 51ft)  CMSGNO(MSG, J) *  M 

5t 6  F0RmAT(1H  ,  7HMFSSAGE,  I5*?X,  19HINTERIJPTE0  WITH  MAN,  T3) 

SI  7  CONTINUE _ _ _  _ 

lNTRraT(M)  =  1 
MSGIPP(M)  =  VCUM 

_ INT(M)  ;  NFRR _ ! _  . 

MOINT(IH.J)  =  MRTNT(TH,J)  ♦  1 
M£SS(2*J>  =  MESS(2*J)  -  1 
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n0Of *  *  + 


*  **norC  *  ♦  * 


_  3o'i* 

3~ftG* 
3oo* 
3h7* 
3  go* 
3oo* 

_ 37''  * 

77  1  * 
377* 
377* 

774* 

370* 

__„32b* 

377* 
37  f\* 
_  370  + 

3  ;>r.  + 

701  * 

2a2* 
3m  7* 
3«4* 
3fl0* 
3»G* 
3r«7* 

3  m  A* 
3m* 

3Q0  * 
3ol  * 
307* 
307* 
304  + 
3uS* 
3oo* 
307* 
303* 
7qo* 

4  DC* 

40  1* 

4n7* 

4n3* 
4n4  + 
4  DO* 
400* 
407* 
400* 
40M* 

41  n* 
411  + 
417  + 
413* 
41  4* 
410+ 
410* 
417* 
41A+ 
410* 
4?n* 


00  Tn  OOQ 

070  COMT I f I U r 

IF(  J  .ro.  1 )  GO  TO  070 

'•1^50(7.7)  -  "I^SO  ('*#?)  -  1 

SFGqnorw)  -  ?(m) 

ATP"  t  ATP'-’  +  Orr'S(«<”ll*SO>  -  OFOS(  wHI«*  1  ) 
AoTt^OT+SFOO  (‘*C"’',2)-SFGS(MG!IM,  1  ) 

AllTr  AMT+  OF GO  ( “*Cl  P" » 5 )  —OF GO  ( MR1 1** » 2  ) 

Go  to  onn 

CO  .'TTMUF 

’•"FSO  (7,1)  :  \<rqc;(p,l>  _  1 

AT  ~  *’E  00(1*7)  +  t 

q  roMP|_FTFr'  ”EOr  AGfO  fpom  ao-G3  GO  TMTo  jOn  oiFIJf 

TARTV(>*T»2)  r  7(M) 

C  mSgMO  ( 'AT  *  2  )  =  cviOG*jO(mog»  1 ) 

PR  I  00  ( ‘^T  »  2  >  =  OPT  OR  (MSG,  1  ) 

LFs]th(vt»2)  =  Lr*'T'+(”OG,  1  ) 

TYP-  ( **T  ,  2 )  =  TYDC"  ( MSG ,  t ) 

Trj'JE(MT»?)  =  tnji  ir  ( m^g » 1  ) 

>|FR(MT,  7)  =  *FR  (  "S6, 1  ) 

M  A 'I  ( ’+T »  7  )  =  n 
IFTr('«T»?)  =  0 

oiitc«t,?)  =  r-MPdi) 

MfS0(7»?)  =  '^00(7, p)  +  1  . 

MESS  (1*2)  =  *«T 

c  qooT  TO  out  vrsSAOFS  tkj  ppofr  of  arpivaL  Ttmf 

00  OGO  MGS  r  1  ,  **T 
MGS  1  r  ’»GS  +  1 
I*?(  MOSl  .GT.  \1T)  GO  tp  GSo 
00  040  MG  r  MG01 *  MT 

I^(  TART  V  (  MOS  *  2 )  «LE»  TA*?T V  (»'*,  2 )  >  rO  TO  540 
PrIoRT  =  PRT  0° ( mGS *  2 ) 

LEMTMT  r  LENTM ( vGS * 2 ) 

TYPcT  =  TYRr ( mgc  *  7 ) 

TaRTVT  =  TARTVC*rSro) 

MOOT  =  CMS^+niMGS^) 

MiJuT  =  TMUE f  M^S*  2 ) 

MERT  =  MER  ( V,GS »?) 

OUTt  =  0'JT(*’GS,7) 

IFT^t  =  IFTE  (mG0  *  2 ) 

MA'JT  =  MAM(MGO»?) 

PR  1 00  ( VOS » 2 )  =  ooxo9{Mf,,p) 

LE.OT'KMGSf  2)  -  Lr*lTH('AG»?) 

TYpc  (  MGS »  2 )  =  TYRE ( MG, 2) 

TARTV(MGS»2)  ■=  T«RIV(Mr,,o) 

CMSGUOOWGS,  2)  =  r«/!SGMO(MG*?) 

TM'Jr(MGO»2)  =  T'l'  F  (  mC  *  2 ) 

ME (MGS.  7)  -  ’IF*?  (mg,  7) 

OUT (MGS, 2)  =  OUT (MG, 2) 
lFTf(MGS,2)  =  TFTE(MG,2) 
mam  (MGS,  2)  =  MAP (MG, 2) 

PR  I  OR ( MG , 2 )  =  PRIORT 
LEMTH(MR»2)  =  LfVTHT 
TYPp ( MG, ? )  =  TYPrT 
TART'.' (MG  *2)  =  TAP.IVT 
CMSGMO ( MG , 2 )  -  MSGT 

T  MUr  ( MG ,  2 )  =  MIJFT 


*PoOC***  * 


***PROC*** 


421* _ NFRtMG>2)  =  NFRT _ _ _ _ _ 

422*  OUT {MG *2)  =  OUTT 

423*  IFTE<MG.2)  =  IFTET 

_4j?4*  _  ..  MAN  ( MG  *  2 )  =  MANT 

425*  540  CONTINUE  ' 

42 6*  550  CONTINUE 

42.7* _  600  CONTINUE 

42fl*  IF (  ORO<5)  .NE.  CHAR(l))  GO  TO  TOO 

4?g*  IF(J.EQ.2  .AND.  OUT(MSG»J).EO.CNAP<14))  WRITE ( 2 » 650 ) MCu«* 

4TK1* _ 1<SEgS<MCUM.IS>.  IS  =  1.7) 

431*  650  FORMAT ( 1H  .  22H  MESSAGE  NO. t  15/  2X» 

4*2*  1  7HSEGMENT.  2X.  1H1.  9X»  1H2*  9X»  l^*  9X»  1H4,  9X»  1H5.  9V.1H6* 

433* _ 2.  9X»  1H7#  ,//4X*  7F10.1) 

434*  700  CONTINUE 

436*  RETURN 

436*  . .  _  END 


***RANDN*** 


***RANDN*** 


SUBROUTINE  RANDM(RY.RO.ftM.s) 

_ A_J=_Q*J3 _ 

DO  10  1=  1 r 12 
CALL  RANDU(RY.l) 

_ 1£LA=A.+.  RY 

RO=(A-6.0)  *  S  +  AM 
RETURN 


k*RAhlOU***- 


***RANDU*** 


SUBROUTINE  RANQUfRY »M) 

IRY  =  IFIX {  RV  /  .74505806E-0B) 
TRY  =  AND(IRY  *  65539r  134217227) 
RY  =  FLOAT (IRY  *  .745n5806E-0A) 
RETURN 
ENO 


♦♦♦RESET*** 


♦♦♦RESET*** 


1* 

S' non:  IT  1  Nr  ppSET 

■?* 

C 

Rrsr  +  r,  COMHITTOmS  ^f-'N'Tr^O  to  START  A  MFW  SMl^T 

3* 

C 

J.E.  A  NFW  ST*i(j|_ATIOM  ITCPATTOH  OR  O' IN 

4* 

iNCl.'i'op  COMOM' 

s* 

SHFTO'./  =  CHAO  (11) 

ft* 

MESS (1*1)  =  0 

7* 

MESS ( 1 »2)  =  0 

0  + 

mess(?»i>  =  p 

q* 

MESSf0»2)  =  n 

1  P* 

P  A  F  A  -  l. 

1  1* 

dafh  ~  i. 

1?* 

AOTrO.n 

r  ^* 

AHT"0  •  0 

1  4* 

A TPM  =  0. 

1  S* 

kin*s  =  o 

1  fS* 

no  on  ih  =  i »  t h«* a x 

1  7* 

lNFl_Ho(TM)  =  p 

1  ft* 

no  ip  t c  =  i »s 

1  Q* 

EC ( TM» IC)  =  O. 

?n  + 

1  0 

CONTINUE 

?1  * 

no  I  S  KQ  =  1  t 

?p* 

MORr  J (  III » KQ 1  =  0 

?3  + 

MOCPL< lH»KO)  =  P 

?  4* 

TW(TN»KO)  =  P. 

PS* 

I HL ( T  m  »  K  Q )  r  p. 

2fS* 

IS 

CONTINUE 

27* 

DO  17  J  =  1,0 

24* 

moimt< tm, j>  -  n 

po* 

17 

CONTINUE 

30* 

20 

CONTINUE 

31  * 

IH  =  I 

3?* 

c 

ZTH  =  0. 

33* 

ZlHsTZERO 

34  + 

ENDHR  =  71 H  +  3SPO. 

3S* 

SHFTP'/  =  CHAO  (11  ) 

3  G* 

DO  SO  C'"SG=  1  *  20n 

37* 

ITYr(CMSfi)  =  P 

3R+ 

iNFoLS ( CMSG 1  -  0 

3Q*  - 

DO  40  ITT  =  1 » 7 

40  + 

c 

SEGS<CMSG» ITT)  r  0. 

41  * 

SEGS ( PESO* ITT)  =  ZlH 

-42+  . 

_ _ 

40 

CONTINUE  .... 

43* 

SO 

CONTINUE 

44* 

DO  too  v  =  l , mcms 
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♦♦♦RESET*** 


45* 

ASP ( M )  =  PASp ( y ) 

a  a* 

AVATL(V)  =  CHARC1) 

47* 

C 

2(M)  =  0. 

4A* 

Z(M)  =  ZIH 

40* 

PERF(V)  :  ASP(M) 

SO* 

NOSlJC  ( M )  =  o 

SI  * 

NOFatl(m)  =  o 

52* 

iNTqPT(M)  =  0 

S3* 

msgtrp(m)  =  n 

S4* 

MSCDL(V)  =  n 

SS* 

MSRrJ(M)  =  o 

5A* 

ImT(M)  =  0 

S7* 

00  00  MGG  =  1»  so 

5A* 

TIE1 (MGG*M)  =  n. 

59* 

TIE2(MGG»M)  =  0. 

AD*. 

TIE3(MGG*M)  =  0. 

SI* 

TlEa(MGG»M)  =  0. 

52* 

O0 

CONTIMUF 

_ a3*__ 

_ 1  XLQ__C  0  til  I?  1U  E 

A4* 

CVSG  =  0 

SS* 

00  300  J  =  1 ,2 

-AS* 

.  _ _  _ 

DO  200  I  =  1*50 

s7* 

CMSSNO ( T  » J )  =  0 

so* 

PRIOR ( I  *  J )  =  0 

AQ-* 

. . . . . . . 

J-ENTHtl  *  J).  -  0 

70* 

TYPf(I*J>  =  0 

71* 

C 

TARTV(I»J)  =  n. 

_ 72* 

TARTV(I*J)  =  ZIH 

73* 

TNUr(l»J)  =  o 

74* 

NER ( T  » J)  =  0 

.  - 75* 

.MANtl * J)  =  0 

7  A* 

IFTf(T»J)  =  0 

77* 

OUT  ( I  *  J )  =  CHARdl 

70* 

pno 

CONTINUE 

70* 

300 

CONTINUE 

ah* 

00  400  IT  =  1 » A 

_  Al* 

NTjMT(IT)  =  0 

A2* 

MCT(IT)  =  0 

A3* 

DO  3S0  KP  =  1*5 

na* 

TVT ( IT*KP)  =  0. 

AS* 

CT(TTrKP)  =  0. 

AS* 

-*so 

CONTIMUF 

A7* 

40U 

continue 

AA* 

DO  450  IP  =  1*5 

AO* 

NCP(IP)  =  0 

on* 

DO  450  KP  =  1*5 

Ol* 

Co(i P,KP)  =  0. 

a?* 

4S0 

continue 

. -03* 

RETURN 

04* 

END 

♦♦♦RESHR*** 

***RE5HR*** 

4 


SUBROUTINE  RESH<? 

- RESetS  CONDITIONS  eqp  START  or  SIMULATION  OP  NE*T  HOUR 

ALSO  COMPUTES  HOUP  SUMMARY 

include  co.mrlk 

INFOLC  =  INFLMR(IH) 

CALCULATE  ThodOUGHMESS-EC (1 )-  FOP  tHTS  HOUP 
A  =  n 

_ DO-S-M  =  1*  MENS 

A  =  A  +  MQCpL ( I H » M ) 

5  CONTTNUF 

B  =  MESS (1*2) 

C  =  MESS (1*1) 

IF ( (  R  +  C)  .OT.  0. )  GO  TO  A 

-  00  ft  I  z  1*5 

EC(IH»I)  =  t. 

6  CONTINUE 
EFF  =  1. 

60  TO  4R 

8  CONTINUE 

£C(IH*1)=  A/(R+C> 

IF (  EC(IH.l)  .LT.  n.)  EcdH.U  =  n. 

CALCULATE  COMPLETENESS  -EC(?)-  FOR  THT s  HOUR 
00  if)  M  :  1#vifnS 
EC(TM,2)  =  EC  ( IM*R)  *■  pERF  ( M ) 

10  CONTINUF 

- EcXliWJ  =  ECUH*3)  ./.mens 

IF (  EC  < IH*  2 )  .LT.  0.)  EC(lH*2)  =  0. 

CALCULATE  RES^ONSTVEMESS-FC (A)-  eor  this  HOUR 
A  =  0 

MS  =  MEN  ( 1 )  +  1 
00  AO  M  —  MS,  MENS 
—  4~=  4  +  MOCPl.  ( IH  *  M) 

AO  CONTTNUF 

ATPm  =  aTPV/a 
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*RF$HR»**  ***RESHR*** 

35*  C  EC ( IH. 3) r  1.  -  flTPM/  7QQ , _ 

36*  £  tF<>C(IH*3)  .LT.  0.)  EcdH.3)  r  0. 

37*  C  NEw  RESPONSIVENFSS  04/28/73 

_ 3_8*_  _  AQTr AQT/A 

39*  AHT=AHT/A 

40*  Xrl.O 

_  41*  _  _  _ IF<AHT.GT.3O0.)  Xsl.3-.001*AHT 

*2*  IF(X.GT.l.O)  X=1 .0 

43*  IF ( X .LT .0.0)  X=0.0 

_ 44*  _  EC(IH*3)=X 

45*  Xrl.O 

46*  IF< AQT.GT.300. )  Xr(96.-0.02*ART>/90. 

_  47*_ _ IF(X.GT.l.O)  X=1.0  • 

66*  IF(X.LT.O.O)  XrO.O 

*9*  EC(IH»3)=EC(IH#3)*X 

60* _ C__  CALCULATE  ACCURACY  -EC (4)-  FOR  THIS  HOUR 

61*  X"  r  FLOAT (INFOLC)  /  10. 

62*  EC ( IH»4)  si.-  X/A 

53* _ UL<  -SCdH.4)  .LT.  0.)  £CdH.4>  r  0. 

5**  C  CALCULATE  EFFECTIVENESS 

65*  TEMsCC12**2  +  CCJ3**2  ♦  CC14**2  ♦  CC?3**2  ♦  CC24**2  ♦  CC34**2 

66* _ EFF=TEM/6.0 

67*  EFF  =  EFF  *  (  W(l)  *  EC<IH»1>+  W(2> *EC ( IH, 2>  *  W(3)*EC(TH,3> 

58*  1  ♦  W(4)  *  EC(TH#4)) 

59*  .  _ EFF r.EFF  ♦( (6.O-TFM)/6.0)  *  f  EC  ( IH,  1 ) **w<  1 )  *  ECdH»2)**W(?>  * 

60*  1  EcdH,3)**W<3)  *  EC(lH*4)**N(4) ) 

61*  ECdH.5)  s  fff 

_ 62*  _  IF (  EC ( IH.5)  .LT.  0.)  fCflH.5)  =  0. 

63*  C  ACCUMULATE  RUN  EFFECTIVENESS  DATA 

64*  45  CONTINUE 

65* _ DQ.  .50  I  =  1 » 5 

66*  CEC(IH.I)  s  CEC ( IH» I >  ♦  EC(IH.I) 

67*  50  CONTINUE 

_ &«*.'...  C . ACCUMULATE  MANPOWER  UTILIZATION  PUN  DATA 

69*  DO  60  Mr  1 , MENS 

70*  CTWHdH.M)  r  CTWH(IH.M)  +  TWdH.M) 

_ 71  * CID.H(IH.M)  r  ClOHllH.M)  ♦  ini  (Ih.M) 

72*  MGCPdH.M)  s  MGCPdH.M)  ♦  MSCPL(M) 

73*  IF (  STR(M)  .LT.  0.)  STr(M)  s  0. 

_ 74*  ...  ...  CFS(IH.M)  r  CFS<IH»M)  ♦  STR(M) 

76*  CFA(TH.M)  s  CFA(TH»M)  ♦  ASP(M) 

76*  60  CONTINUE 

_ 7.7* .  IF (  OjlO ( 6 )  .NE.  CHAR(1>  )  GO  TO  530 

78*  WRITE (2. 490)  IDFNT »  IPAGE 

79*  490  FORMATUHl,  15X,  12A6.  13X,  5HPAGE  »  14/) 

_ 80* _  ..  .  .  IPAGE  =  IPA6E  *  1 

81*  WRITEC2.512)  TH»  IDAY.  NSHF 

82*  612  FORMAT ( 1H  ,  19HEM00F  HOUR  RESULTS.  11X.  4HH0UR .  110/ 

_ A3* _ 1.  JlXi_3HQAX  *  .  HI / _ _ _ _ 

84*  2  31X.  9HITERATI0N.  15//) 

85*  WRITE(2.513)  ( (  M.MSCPL(M).  MSREJ(M),  INTRPT CM)..  TW(TH.m)  . 

- 86* - 1  -IDLUH.H). _ STRtMl.  ASPfMl.  PFPCfMI  l.Msl.MFNS  1  _ 

87*  513  FORMAT ( 1H  »  25H0PERAT0R  PERFORMANCE  OATA/ 

88*  1  28X .  12H — MESSAGES — .  14X»  8H — TIME — »  12X» ' 

- aa* _ ?  17H - FINAL - 1 _ 

90*  3  13X>  38HMAN  COMPLETED  REJECTED  INTERRUPTED. 

91*  4  48H  WORKED  .  OTHER  STRESS  ASPIRATION  PEPFORM/ 
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42* _ 5QiX_*_J2*  Ill.  I10»  IIP.  F12.  t .  FlO.t  .  F4.2,  F4.2.  F: 

'  '  " . *3* WRlTE(2  »514)aTPM,MESS(1.1> .  INFOLC.  (EC  <  IH.  IV)  .IV: 

44*  514  FORMAT (1H  .  IPX.  24HMESSA6E  PERFORMANCE  DATA/ 

_ Q5* _  _1  23X*  24HAVERAGE  TIME  PER  MESSAGE.  F25.1/ 

Q ft*  2  23X»  37HMESSAGES  IN  AO-G3  OUEUF  AT  HOUR  START,  110/ 

47*  3  23X»  22HTOTAL  INFORMATION  LOSS,  I2S/ 

go* _ 4  23x »  24HEFFECTIVENESS  COMPONENTS/ 

44*  5  26X»  12HTH0R0UGHNESS.  F14.2/ 

100*  5  26X.  12HC0«PLETENESS»  F14.2/ 

101* _ J&_26X»..14HRESP0NSIVENESS.  FI?.?/ 

102*  7  26X.  8HACCURACY.  F1A.2/ 

103*  8  47X .  6H - »/25X,  14HEFFFCTIVENESS=»F13.2/) 

104* _ WRITE  (2, 520)  _ _ _  __  _ 

105*  520  FORMAT (1H  ,  1 AX ,  23H0ET AILED  MESSA6F  TIMING/ 

£  105*  1  20X.  17HCUMULATIVE  TYPE/??X,  7HMESSAGE/ 

107*  _ 2  _22X»  6HNUMAER.  16X, 

10«*  3  42hT1  T?  T3  T4  T5) 

log*  530  CONTINUE 


.11 0*- 


,111* 

b$+**+ 

-21.1.3*-. 

114* 
115* 
_ Life*.. 


117* 

11A* 

.JJL4*. 

120* 

121* 

—122*-- 


123* 
124* 
125*  __ 
l2ft* 
127* 

~L2B*. _ 

124* 

130* 

131  * 
132* 
133* 

.134* 

135* 

13ft* 

137* 

13A* 

134* 

lfeOit - 

lftl* 
142* 
143* - 


_ D0J55A  WS5  -  l«_CMSG_  ..  .  .  _  _ 

I F ( SEGS ( MSG » 7 )  .LE.  0)  GO  TO  550 
IT  z  ITYC(MSG) 

_  -  T1  z  SEGS (MSG» 2)  -  SEGS (MSG. D 

T?  z  SEGS (MSG* 3)  -  SCGS(MSG»2) 

T3  z  SEGS(MSG»4>  -  SEGS(MSG.3> 

_ TA.jz  .SEGS<  MSG/  5L.  -  SEfiSiMSG ►  4 ) 

T5  z  SEGS(MSG.6)  -  SEGS (MSG. 5) 

IF (  0R0(6)  .NE.  CHAR(l))  GO  TO  541 
WRITE(2.540)  MSG.IT.T1.T2.T3.  T4.  T5 

540  format ( ih  .  2tx.  13.  111.  sfio.d 

541  CONTINUE 

jC _  .  ACCUMULATE  T1ME_  SEGMENT  ..TIMES  by  type 

TMT(TT.l)  =  TMT(IT.l)  ♦  T1 
TMT ( TT.2)  z  TMTdT.2)  ♦  T? 

.  _  TMTl IT. 3)  =  TMT(IT»3)  ♦  T3 
TMT ( IT. 4 )  =  TMT ( IT.4)  ♦  T4 
TMT ( IT. 5)  =  TMT ( IT. 5>  +  T5 

_  „_NTMT(IT)  =  NTMT(IT)  ♦  1 

CT(IT.1)=  CT(TT.l)  ♦  Tl 
CT(lTv2)=  CT ( IT. 2)  ♦  Tg 
CT(TT.3)=  CT( IT. 3)  ♦  T3 
CT(IT.4)=  CT(IT»4)  +  T4 
CT(IT.5)Z  CT( TT. 5)  ♦  T5 

NCT(IT)  =  NCT(XT)  *  I..  . 

C  accumulate  time  segment  TIMES  BY  HOUR 

CTSh(IH.I)  =  CTSH(IH.I)  ♦  Tl 
CTSw(TH»2>  =  CTSH( IH» 2)  .♦  T2 
CTSh(IH»3)  =  CTSH( IH. 3)  ♦  T3 
CTSH( IH.4)  z  CTSH(Ih.4)  ♦  T4 

- CtSMliH._5J  _Z--CISH(IH.51  +  T5 _ 

NCTSH(IH)  =  NCTSH(IH)  ♦  1 

C  ACCUMULATE  TIME  SEGMENT  TIMES  BY  PPIORITV 

_ IP  z  IPRI (MSG) 


144* 

145* 

145* 

147* 

14A* 


CP(TB.l)  =  CP(IP.l)  ♦  Tl 

CP(TP.2)  =  CP(IP.2)  ♦  T2 

CP(TP.4)  z  CP( IP»4)  ♦  T4 

CP(IP.5)  =  CP(IP»5)  ♦  T5 


S*2UJL 

1.4).  El 
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♦RcSHR***  ***RESHR*** 

_ 149* _ NCP(IP)  -  Nfo  (  jpj  _+_i _ 

ISO*  SEGS(MSG»7)  =  0. 

1S1*  SSO  CONTINUE 

IS?*  DO  570  IT  =  1.7 

163*  X  r  NTMT(IT) 

1S4*  DO  560  L  =  1.5 

1SS*  IF  C  NTMT(IT)  .eo.  0  )  go  to  SSO 

lss*  TMT(IT.L)  =  TMT(IT»L)  /  X 

1S7*  S60  CONTINUE 

_ lSfl*  570  CONTINUE 

1S9*  IF  (  ORO  ( 6 )  .NF.  CHARM  )  )  GO  To  600 

ISO*  WRITE ( 2 » 580 ) (  IT.  NTMT(IT),  (TmT(IT.|.),  L=  1.5).IT=  l.T) 

_ 1.6 J. *  5S0  FORMAT <1H  »  /20X .  17HMFSSAGE  MEMBER/ 

IS?*  1  23X.  17HTYPE  COMPLETED. 

163*  2  464  T1  T2  T3  T4  T5/ 

_ l64_*  .  .  3(24X*  II*  111.  5F10.1)) 

lSS*  590  CONTINUE 

1SS*  600  COMTINUE 

_ 1.67* _ C  .  GET  READY  FOR  NEXT  HOUR 

lss*  HROVER  =  Char  (ID 

169*  DO  700  M  =  1 . M£mS 

_ 1.70*  AVAIL  ( M)  —  CHAR(t) 

171*  MSCRL(M)  =  0 

17?*  MSRFJ(M)  =  0 

_ _ 17.3*  DO  650  WGG  =  1.S0 

174*  TlEl (MGG.M)  =  0. 

175*  TIE?(MGG*M)  =  0. 

_ 176*  TTE3<MGG.M)  s  0. 

177*  TIEU(mGG.M)  =  0. 

17ft*  SSO  CONTINUE 

_ 179*  700  CONTINUE 

lftO*  KINKS  =  MOINT(IH.I)  VI0INT(TH,2) 

lftl*  IH  =  TH  +  1 

lft?*  IF ( IH  »GE.  ( IHMSX  +  1  ))  SHFTOV  =  CHAR(36) 

1R3*  ZTH  =  ZIH  +  3600. 

1R4*  ENDHR  =  ZIH  +  36^0 . 

_  lA5*_ ...  flOO  CONTINUE 

lft6*  LDOnE  =  0 

lft7*  ATPM  =  0 

lflfl*  AQTrO.O 

lft9*  AHTrO.O 

190*  DO  950  IT  =  1.9 

...  191*  .. ..  .  MTMT(IT)  =  0 

19?*  DO  940  L  =  1.5 

193*  TMT(IT.L)  =  0. 

—  JL94*  «40  CONTINUE 

19S*  SSO  CONTINUE 

196*  RETURN 

_ 1<3L7* _ _ _ END .  . . . .  .... 

- - **«RUftlSUM*«JL _ **.*RliNSUM*Juk. _ _  _ _ _  _  .  . 


f 


1* 

?* 

A* 

4* 

S* 

ft* 

7* 

ft* 

O* 

i  n* 

_ 11*  _ 

12* 
i  a* 

_..  _  14* _ 

1  S* 

^  ft* 

_ 3.7* _ 

1  ft* 

1  a* 


SUBROUTINE  RUNSUM 

C  PRINTS  RUM  SHMVERV  AVERAGES  ACCROSS  ITERATIONS 

INCLUDE.  COMPLY 
WRITE(2*5)  Tf)rNT#  IP  ARE 
5  F0RMAT(1H1»  1SX,  l2Aft*  HK,  SMdaGE  *  T4/) 

IPAftF  =  IPAGE  +  1 

v= Iona in 

IP(M.LE.O)  M=l 
WRITP (2*10)  M 

10  FORMAT ( 1H  /I  ox,  SMSWlFT *  T2*  ftH  SUMMARY//) 

C.  PRTMT  QyT  “ANPOWEp  UTILIZATION  DATA 

WRITE (2 *20) 

PO  FORvAT ( 1H  *  //9Y *  20WMANDOWF'P  UTILIZATION* 

1  //  15X*  31HTIME  WORKED  .  .  TIME  OTHER  * 

2  2lMMS<?  UNITS  mean  TjMPr 

A  29m  FTkial  FTMAL* 

-  _  S_  /hhXj  .  23HPROCFSSEQ _ PER  MESSAGE  t 

ft  ?lu  STRESS  ASPIRATION  * 

7  /4 Y  *  27HH0UR  MAN  PROP  ) 


f 


♦RitNSlIM***  ***RUNSlJM*** 


?2* 

23* 


?4* 

?s* 

-2h*. 

97* 

9** 

29* 

30* 

31* 


X  -  NSHIFT _ 

DO  25  M  =  1*  MENS 
TPMC<M>  =  0. 

_ MCL<M)  =  0 

SRS(M')  ■=  0. 

ASS(M)  =  0. 

WOR(M)  =  0.  _ 

TMI(M)  =  0. 

25  CONTINUE 

_ DO  5P  IH  =  It  JHMAX 

WRITE(2.26)  IH 

26  format ( ih  *  15) 


-32*- 


■DQ . 4.0  M  -  -l..e...-M£N5 


33*. 


36* 

.37* 

3fl* 


im 


WORK  =  CTWH<IH*Ml/X 
WOR(M)  =  WORIM)  +  WORK 
_TMlQL.=.ClDH(  IH*M>  /X 
TMI(M)  =  TMI(M)  TMIOL 
PROP  =  WORK/  3600. 

YY=  MGCP(lH.M) _ 


TPM  =  CMTMG(IH*M)/YY 
IF(  YY  .LE.  0  >  TPM  =  0. 

IPMCCM)  =  TPMC(M)  ♦  CMTMG<IH*M) 
MCL(M)  =  MCL{M)  ♦  MGCP(IH.M) 

SR  =  CFS(IH*M)/X 

AS  =  CFAdH.Ml  /  X 
ASS(M)  =  ASS(M)  ♦  AS 
EXIPMHUH*M>  =  TPM 


4fl*  EXASPH(IH.M)=  as 

49*  MGC  =  FLOAT <  MGCP(IH*M)>  /  X 

_ SO* _ WRITE  12j-30L) _ M*  WORK*  PROP*  TMIDl.J*MGC* 

51*  1  TPV*  SR*  AS 

52*  30  FORMAT < 1H  *  5X»  T10*  F8.0*  F7.2*  F10.0*  112*  F14.0*F12.3* 

- - 55* -  1  F9^3J  .. 

54*  40  CONTINUE 

55*  50  CONTINUE 

- 56* - WRLTE-(2jl7jO  1 _  _  . 

57*  70  format (ih  */36H  means  for  each  man  pfr  messagf  unit  ) 

55*  0  S  IHMAX 

- 55* - - A  =00. . . . 


60*  B  =  0 

61*  C  =  0 

- 62* - 0-  -=  -  0  - - - 

63*  E  =  0. 

65*  H  =  0 

- -65* -  «  =  MENS-  -  -  - . 

66*  DO  100  »  =  1*  MFNS 

67*  WORK  =  WOR  ( M )  /  0 

- 65* - TMIOL  m  IMI LN1  /  Q - 

,  65**  PROP  =  WORK/  3600. 

75*  YY=  MCL  <M) 

- - *1* - xrm-=  a  _  .  ....... 

72*  IF (  MCL(M)  .LE.  0  1  GO  TO  75 

73*  TPM  =  TPMC(M)  /  YY 

,  7.4* - 75  CONTINUE - 

75*  SR  =  SRS(M)  /  0 

76*  AS  =  ASS(M)  /  Q 
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*RuNSt  iv*** 

***runsi  iv*** 

77* 

JF(WORK..ES«0.0)  SO  TO  7A 

7fl* 

a  =  a  ♦  Work 

79* 

ri  =  A  +  TMIOL 

AO* 

C  =  C  +  YY 

A1  * 

0=0+  TPM 

A  ?* 

E  =  E  +  SR 

A3* 

H  =  H  +  AS 

A4* 

GO  TO  79 

AS* 

7A 

G=G-1 

AS* 

79 

continue 

A7* 

EXTpM(M)  =  TpM 

AA* 

EXASP(M)  =  AS 

RP* 

WRITE<2»  AO)  v,  WORK  ,  PROP.  TmIdL*  wCL.(M),  TPM,  SR» 

AS 

qn* 

AO 

FORMAT ( 1H  ,  115,  FA.O,  F7.2,  Fln.O,  T12,  F14.0,  F12 

.3,  F9. 

qi* 

100 

CONTINUE 

.  q?* 

WRITE (2,  120 ) 

q3* 

1?0 

FORMAT (  1H  »  /  7H  TOTALS) 

q4* 

KC  =  C 

qs* 

PROP  =  WORK  /  (  MENS  *  3600.) 

qfi* 

WRITE(2» 140)  A,  PROP,  B»KC*  0,  F,  H 

q7* 

WRITE (2 , 130 ) 

qA* 

130 

FORMAT (1H  ,  //  12H  GRAND  MEANS/) 

QQ* 

WORK  =  A  /  s 

inn* 

TMIOl  =  R,  /  G 

ini* 

MSG  =  C  /  G 

In?* 

TPM.  =  D  /  G 

103* 

SR  =  F  /  G 

ln4* 

AS  =  H  /  G 

ins* 

PROP  =  WORK  /  3600. 

Ins* 

WRITE ( 2 » 140 )  WORK,  PROP,  TMIOL,  MSG,  TPM,  SR*  AS 

ln7* 

J  40 

FORMAT ( 1 H  ,  F73.0,  F7.2,  Fin.n,  n2,  F14.0*  F12.3, 

F9.3> 

ins* 

C 

PRINT  OUT  TIME  SEGMENT  DATA  rY  HPUR 

lnq* 

WRITE (2, 5)  TOENT,  IPAGE 

1)  n* 

IF ( ICHAIN.EO.o )  GO  TO  14S 

Hi* 

GMEANS ( 1 ) rGMEANS ( l >  +W0RK 

it?* 

GMEANS ( 2 ) =GMEANS ( 2 ) +PR0P 

113* 

GMEANS  (  3)  =G'*E  ANS  <  3 )  +TMIDL 

114* 

GMEANS ( 4 ) =GMEANS ( 4  >  +MSG 

lis* 

GMEANS <5)=GMEANS( 5) +TPM 

116* 

GMEANS<6)=GMEANS(6)+SR 

117* 

GMEAMS<7)=GmEANS(7)+AS 

11  A* 

lBLKt=IRLKl+l 

119*  . 

ENCODE (46, 9145, LINE)  ICMAIN*w0rK*Pp9P,TMi0L*MSG* TPm.sr, AS 

l?n* 

9145 

FORMAT (I7,Fl6,n,F7.2,Fin.0,T12,F14.n,F12.3,Fq.3) 

l?i* 

C 

WRITE(3*IBLK1)  line 

1??* 

145 

continue 

1?3* 

IPAGE  =  IPAGc  +  i 

1  ?4* 

NCC  =  0 

_ 125*._. 

.WRITE!  2, 200)  _ _ _ _ _ 

l?fi* 

?00 

FORMAT ( 1H  ,  2AX,  13HTIME  SEGMENTS* 

1?7* 

1  /7x»  34H - T1 -  - T2 -  - T3 - - 

1  on* 

1?9* 

3  /4l H  HOUR  TIME  PROP  TIMF  PrO P  TIMF  PROP, 

130* 

4  43H  TIME  PROP  TIMF  PROP  (SUM)  MFSSAGES  ) 

131* 

on  ?sn  TH  =  1  ,  TMMAX 

*  13?* 

IF (  NCTSH(IH)  ,LE.  0)  GO  TO  ?*0 

133* 

SUM  =  0. 

► 


I 


*Ri  *NSl  |M***  ***RUNSl|M*** 


1.34* 

I3S* 

136* 

137* 

13A* 

1.39* 

140* 

141* 

in?* 

143* _ 

144* 

143* 

146* 

147* 

14** 

lag* 

iso* 

lsi* 

igp* _ 

l*»3* 

ft*  *S4* 

_ _ 1S5* - 

13ft* 

137* 

- isa* - 

IRQ* 

160* 

- 161* - 

lft?* 

Ift3* 

- lli,4* - 

lftS* 

166* 

_ lft7*  -  - 

lft** 

lft9* 

_ LZH* _ 

171*  . 
17?* 

_ 173*. - 

174* 

173* 

- 17ft*- 

177* 

17** 

170* 

1*0* 

1*1* 

- 1*?* - 

1A3* 

1*4* 

- 1  Aft* - 

1AA* 

1*7* 

_ UUU - 

1*0* 

100* 


X  =  NCI SH(IH) _ 

NCC  =  NCC  +  NCTSH(lH) 

DO  ?10  IS  =  1 » 5 

CH(IS)  =  CH(IS)  ♦  CTSH<IH»IS) 

'  CTSh(IH»IS>  =  CTSH( ih» is)  /  X 
SUM  =  SUM  +  CTSH(IH.IS) 

olO  CONTINUE _ _ _  _ _ _ 

DO  ?20  IS  =  1»5 

PRP(IS)  =  CTSH(IH.IS)  /  SUM 

2?0 .CONTINUE  . 

WRITE (2 * 230 )  IH»  (CTSH ( IH» IS )  *  PRP ( TS) • IS=1 ,5) .SUM*  NCTSH(TH) 
?30  FORMAT  < 1H  »  14 »  5(F6.0»  F6.?>*  FlO.O*  16) 

2S0  CONTINUE - - 

SUM  =  0. 

DO  ?60  IS  =  1*5 

_ CM  (.IS).  .=  CH(IS)  /  NCC.  . 

SUM  =  SUM  +  CH(IS) 

960  CONTINUE 

_ Q0_J22tL.ISu-.5-l.i.S. -  -  -  -  . 

PRP{IS>  =  CH(IS)  /  SUM 
?70  CONTINUE 

_ EXPR(l)  =  SUM. 

WRITE ( 2 » 280 )  ( CH ( IS) *  PRR(IS)#  IS  =  1*S)»  SUM,  NCC 
?*0  FORMAT ( 1H  »/5H  MEAN » 5 ( F6. 0  * F6. 2 ) »  FlO.O,  16) 

_ 1EXI£MA1MjlEQ.»H1  GO.  TQ-2A5 - — . 


K=-l 

DO  282  1=1 »S 
. .  K=K+2 

GTSMNS ( K ) =GTSMNS ( K ) +CH ( I ) 

3*2  GTftMMS ( K+l ) rGTSMNS ( K*1 ) +PRP ( T ) 

_ .GTSMNSClll=£TSMNSJll).+SliM  .  - 

GTSMNS ( 12 ) =GTSMNS ( 12 ) *NCC 

ENCODE <48* 9282 » LINE)  ICHAIN, (CH(IS) , DRP( IS) , IS=1 , 5) , SUM, NCC 
_  -9pA2  .  FORMAT ( I4,1X,5(F6.0»F6.2) »F10.0r 16) 

IRLK 1=I8LK1+1 
C  WRITE(3*I8LK1)  LINE 

_ 285. ..  CONTINUE  .  ------ .  _ 

C  PRINT  OUT  TIME  SEGMENT  DATA  pY  MFSSAGE  TYPE 

WRITE (2, 290)  (IS*  IS=  1»S) 

200  FORMAT l 1H  //  6H  TYPE  * 

1  5 ( 6H - T,  T  1 ,  SH - ), 

2  14h  TOTAL  N» 

. -_3  /5i+  .  .MSG*  5 (12R  .  TIME  P&QP  ) » 

4  16H  (SUM)  CPL> 

C  DO  370  IT  =  1,8 

00  37*  IT=1*7 

IF(NCTST(IT)  .LF.  0)  GO  TO  370 
X  =  NCTST(IT) 

DO  340  IS  =  1 » 5 
CTST ( IT, IS)  =  CTST(IT,IS)  /  X 
_ SUM  =  SUM  ♦  CTST (IT, IS) 


340  CONTINUE 

DO  .330  IS  =  1 » 5 
_ ERP-ClSJ-i  CJSICI.Ti.ISl- V 


SUM 


3*50 


CONTINUE 
WRITE (2 » 


360)  IT»  ( CTST C TT, IS) ,  pRPf TS) , TS=J »S) , 
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»R.  iNSUM*** 


***PUNSl)M*** 


191* _ L  SUM.  NCTS T LU > _ 

192*  360  FORMAT <  1H  .  13.  IX.  5<F6.0.F6.2) »  F10.0.  16) 

193*  C  370  CONTINUE 

-IB1**  .  370  IF{  ICHAIN.EO.O)  SO  TO  378 

IQ'S*  K--  1 

196*  DO  372  1=1.6 

197*  KrK+2 

198*  TSMNST(IT.K)=TSMNST(TT.K)*CTST(iT.I) 

199*  372  TSMnST<IT.K*1>=TSMNST<IT.K*1)*PRP<I) 

200*  TSMnST<IT»11)=TSMNST<IT»11)*SIIM 

20 1  *  TSMnST ( IT . 12 ) =TSMNST ( IT . 12 ) +NCTST ( IT) 

202*  ENCODE <64. 9378. LINE)  ICHAIN.IT, (CTST(TT.IS) »PRP< IS) . IS=1 .5) .SUM 

203* _  1  NCTST(IT) 

204*  9378  FORMAT( 16* 14. IX* 5 < F6. 0.F6.2) »F10 .0. 16) 

205*  lBLKl=lBLKl*l 

_ao 6*  _  _C  WRITE (3*  I8LK 1 )  LINE 

207*  378  CONTINUE 

208*  C  PRINT  OUT  TIME  SEGMENT  DATA  rY  MESSAGE  PRIORITY 

209* _ WRJTE  (2.380 )  <IS»  IS  =  1.5) 

210*  380  FORMAT < 1H  .  //  6H  PRIOR. 

211*  1  5(6H T.  II.  SH- - ). 

212* _ 2.14h  TOTAL  N» 

213*  3  /5h  MSG.  6(12H  TIME  PROP) . 

214*  4  16H  (SUM)  CPL> 


_ 21 5* _ 

216* 

217* 

_ ai8*_ 

219* 

220* 

_ 221* _ 

222* 

223* 

22*i* 

225* 

226* 

. _2?7* _ 

228* 

229* 

. 230* _ 

231* 

232* 


DO  456  IP=1.5 
C  DO  450  IP  =  1.5 

IF (  NCTSP(IP)  ,LE.  0)  GO  TO  450 
.  . ..  X  =  NCTSP(IP) 

SUM  =  0. 

DO  400  IS  =  1.5 

_  CTSP(IP.IS)  =  CTSP(IP.IS)  /X  _  _ 

SUM  =  SUM  *  CTSP(IPflS) 

400  CONTINUE 

DO  410  IS  =  1.5 
PRP(IS)  =  CTSP ( T°. IS)  /  SUM 
410  CONTINUE 

_  WRlTE(2»420)  TPjl  (CJSPLIP'IS) .PpP(IS) »I5=1»5) .SUMtNCT$PiIP) 

.  420  FORMAT ( 1H  »  13.  IX.  5(F6.0»F6.2) .  FlO.0.  16) 

C  450  CONTINUE 

450  IFdCHAIN.EO.OJ  GO  TO  455 
K=-l 

DO  452  1=1.6 


.233*  .  K=K+2  . . 

234*  TSMnSP ( I P  »  K ) =TSMNSP ( I P . K ) +C  TSP ( IP  » I ) 

236*  452  TSMNSP (IP.K *1 )=TSMNSP(IP.K+1)*PRP( I) 

-236* . . TSMNSP(IP.11)=TSMNSP(IP.11}+SUM  . . 

237*  TSMnSP  ( I P » 1 2 )  =TSMNSP  ( I P .  1 2 )  *N<* TSP  (IP) 

238*  ENCODE (84.9378.LlNE)  ICHAIN.TP. (CTSP(TP.IS) »PRP(IS>  »IS=1 .5) .SUM 

239*  . . INCTSPt  IP)  _ _ ^ _ _ 

240*  IBLK1=I0LK1*1 

241*  C  WRITE(3»I8LK1)  LINE 

-24.24 _ 455 rOMTTMIlF _ 

243*  C  PRINT  OUT  EFFECTI VENESS  PY  HOUR  DATA 

244*  WRITE<2.5)  TDENT.  IPAGE 

-2454 - IPAGE  =  IPAGE  .»  i _ 

246*  WRITE (2. 460) 

247*  460  FORMATdH  .  //19X.29H-— COMPONENTS— -  EFFECT-.  /lOX» 


! 


♦  RiiNSl  IM*** 


♦  ♦♦rUnSijm*** 


24ft* 

T855T 

850* 

251* 


1 


252* 

253* 

254* 


470 


__  3flHH0UR. 

X  =  NSHfFT 
00  470  IC  = 
CH( IC)  =  0. 
CONTINUE 
DO  590  IH  = 
DO  4B0  IC  = 


thor  comp  resp  acr 


TVENFSS) 


1*5 


255* 

256* 

257* 


25ft* 

259* 

-2AQ*. 


4ft. 0 

400 

500 


(CECCIH*IC) *  IC  = 
4X t  4F5.2*  Fft.g) 


1  *5) 


261* 


2ft  4* 
2ft5* 
2hh+ 


520 


267* 


270* 

271* 

■272* 


1*IHMAX 

_  _1  *  5  _ 

CECIIH*IC)  =  CEC<IH*TC)  /  X 
CH(IC)  =  CH(IC)  +  CEC(IH*IC) 

CONTINUE 
WRITE<2.490>  IH* 

FORMAT ( 1H  *  113* 

.CONTINUE _  _  . 

DO  510  IC  =  1*5 

CH(IC)  =  CH(IC)  /  0 

CONTINUE 

EXPR ( 2 )  =  CH ( 5) 

WRlTE<2*520>  (CH<IC)*  IC=  1*5) 

-EQRmAI .<  IH.  * /10 X i .  4HMJE AN * . JiX_»  4F5..2*  Eft,2> 
IF ( I CHAIN •EG. 0 )  SO  TO  530 
DO  525  1=1*5 


_ 525 


0525 


273* 
_ 2754 


LINE 


530 


27ft* 
277* 
27ft* _ 


279* 

250* 

-251* 

2ft?* 

2ft3* 

-  .254.*- 


255* 

256* 

257* 
2  ftft* 
2fl9* 
-200*- 


291* 

292* 

- 203* 

294* 

295* 


COmMNS ( I ) SCOMMNS (I)+CH(I) 

ENCODE ( 42* 95?*;* LINE )  TCHAlN.  (CHCP  *T=1  *5) 

FORMAT (10X*I4*4X»  4F5. 2*F8»? ) 

T pi  H-1-TRI  K  1  »1 

WRITE! 3* 1BLKI ) 

CONTINUE. 

PRINT  OUT  WORKLOAD  SUMMARY 
WRlTE(2.5>  TDFNT.  IPAGE 
IPAGE  =  IPAGE  +  1 

_ WRlTFt?»54ni . . 

540  FORMAT ( IH  .  20X.  16HWORKLOAD  SUmMARv  * 

1  /  47 X*  28H - MESSAGE  UNITS -  * 

- 2  V-tlX.  31HBACKL0G  MESSAGES  DELIVERED  * 

3  38H  COMPLETED  REJECTED  INTFRUPTFD  * 

4  /43H  HOUR  A0/G3  IOD  LAST  1/4  HR  ANYTTMF 

- S.36H  .. A0/G3 IflD AO/ S3 _ IOD  A0/G3  IOD  > 

00  600  IH  =  1.  IHMAX 
WRITE (2*  560)  IH 
..S60  FORmATUH  j  15) 

XI  =  LOGS AC ( TH. 1 )  /  X 
X2  =  L0G9AC I IH*  2)  /X 

_ X3L.=_HUCDMPUHt_LL/J{ . . . . . 

X4  =  MUCOMPC IH*g)  /  X 
X5  =  MUREJ(lH*l>  /  X 

- X6  =  AKJREJt  lH*2i  L  X  _  .  . 

X7  =  MUINT(IH*1)  /  X 
X8  =  MUINTC  TH*2)  /  X 
WHITS  12* 590)  XI* X2» IGP ( TH) * IGR ( IH) . 


X3i-X4  *-X5i  X6 «.  X7-t  XQ _ 


*97*  590  FORMATIlH  *  F13.1*  F6.1*  I8*I11*F10.1*F7.1*F5.1*F7.1*F6.1*F5.1) 

*95*  600  CONTINUE 

JE - aHINT -ERROR- SUMMARY  . 

300*  WRITE (2*5)  IDENT *  IPAGE 

301*  IPAGE  =  IPAGE  ♦  1 

-302* - WHITE  <2*6201- 


303*  620  FORMAT (IH  t  20 X. 

304*  WRITE (2*630) 


23HERR0R  SUMMARY  -  BY  HOUR//) 
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/ 


♦Ri.NSlIM*** 


***RUNSUM*** 


306* 

307* 

306* 

309* 

31  0* 
311* 

3l  2* 
313* 
314* 

31  6* 
316* 

640 

. 31  7* 

316* 

650 

319* 

660 

. . 320*... 

321* 

700 

322* 

710 

• _ 323* . 

324* 

325* 

720 

_ 326* 

327* 

.  326* 

329* 
330* 
3.31* 
3.32* 

C 

33.3* 

334* 

730 

335*. 

c  «oo 

336* 

337* 

600 

336* 

339* 

340* 

605 

...  34 1  * 
342* 

9605 

343* 

C 

344* 

61  0 

345* 

346* 

625 

Go  TO  700 


»  1  OH  4  , 

/74X,  5HUNTTS  ) 


tresh(t,th> 


.  Format cih  •  i*x«  29h - frpqp  type -  ,  6X# 

1  30HERROR  INFORMATION  n'umRFR  OF  , 

2  /  14X  *  27H1  2  3  » 1  OH  4  , 

3  30HRETURNS  LOSS  MFSSAGES  *  /74X,  5HUNITS  ) 

WR ITE (2  > 640 ) 

FORMAT (1H  >  PM  HOUR  ) 

DO  700  IH  =  J  # IMMAX 

IF (  IRESH ( 7 » IH )  .LE.  0  )  GO  TO  700 

X  =  IRESH ( 7 »  TH) 

DO  650  IET  =  1  ,6 
PRP(TET)  =  IRESHUET#  Ih) 

PRP(IET)  =  PR°( TFT)  /  (X  /  2.) 

CONTINUE 

WRITE (2#  660 )  TH»  (PRP(IET),  Itt=  l,p>,  TRESh(7,TH) 

FORMAT ( IH  ,  T A*  F6.4,  5F10.4,  III) 

CONTINUE 
WRITE ( 2  *  710 ) 

FORMAT ( IH  #///20X.31HERROR  summary  -  pY  MESSAGE  TYPr  > 
WRITE (2,  630 ) 

WRITE ( 2 » 720 ) 

format ( ih  »  ph  message,  /  ph  tyof  ) 

DO  son  IT  =  1.7 
DO  om  IT=1.7 

IF(  IREST ( 7 .  TT)  .LE.  0)  Go  T0  R00 
X  =  IREST ( 7  *  IT) 

DO  730  IET  =  1,6 
PRP(TET)  =  Tr^ST  f IET ,  IT) 

PRP(TFT)  =  PRP( lET)  /  (X  /  2.) 

CONTINUE 

WRITP(2.  660)  IT.  (PRP(IFT).  TFT=  1,6).  TRFST(7.IT> 

continue 

Ip(TCHAIN.EO.O)  GO  TO  610 
DO  60S  1=1,6 

ERSUMT(IT.T)=EPEUMT(TT»I)+PRP(I) 

ERS'  IMT  (IT  ,  7 )  =T RrST  (  7 » I T  )  +ER5t 1MT  ( IT  ,  7) 

ENCODE (54, POOS,  l.TNE)  ICHAIN»IT, (PRP(T) ,1  =  1,6) , IPEST(7,tt> 
F0RMAT<I3*T5,Fo, 4,5=10.4,111) 

If)LKl  =  lPLKl  +  l 
WRlTE(3*IRLKt)  ltne 

continue 

RETURN 

END 


MESSAGE, 


TYPF 


GO  Tr,  poo 
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1* 

2* 

_ 3* 

4* 

5* 

_  6*. 

7* 

A* 


SUBROUTINE  SIMPAM 

simulations  parameters  are  READ  IN 
include  comrlk 

READ (7.100)  TDENT 
ino  FORMAT ( 12A6) 

READ (7*200) NSHIFT  .  IMMAX*  MEM(l).  MPN(2). 

2  IDAY .  RKLG.  PUL » 

3  (<TATA(J.N).  N=  1*8)*  J=  1*2).  NTE »  Y 

NTE *  Y» I CHA  TN»  TZESO 


MEPROP*  (ORO(L) * 
PUS.  SRT A .  SRTS, 


9* 

3  ((IATA(J.N).  N=  1  *  8 1  *  J=  1  * : 

i  n* 

200 

FORMAT! 13. T2.2T1. 11 *1X.9A1»; 

1 1* 

C  200 

format ( 13*  T2.  2it.  ?x,  sn. 

±2* _ 

TZERO=TZERO*3600. 

13* 

PUL  =  PUL  /  mo. 

14* 

pus  =  pus/  mo. 

15* 

MEN<3>=  MEN(l)  +  MEN<2) 

1  ft* 

MENS  =  MEN (3) 

17* 

C 

7^n0  RUN  SUMMARY  COUNTERS 

IB*  .. 

DO  220  IH  =  1.  THMAX 

19* 

NCTSH(IH)  =  0 

?n* 

frhr(IH)  =  o. 

21*  ... 

DURTN(IH)  =  0. 

22* 

SDIN(IH)  =  0. 

23* 

DEL(IH)  =  0. 

24* 

DELSD(IH)  =  0. 

25* 

DO  205  IES  =  1 .P 

2ft* 

IRESH(IES.  TH>  =  0 

27* 

..  205 

CONTINUE 

2A* 

DO  210  J  =  1*2 

29* 

LOGRAC(IH.J)  =  0 

_3fl*—  - 

_MUCOMP  ( IH.  J )  =  0  .  . 

31* 

MUREJ(IH.J)  =  0 

32* 

MUInT(IH.J)  =  0 

21?.  2X»  4E5 . 3 .  lfiTl.  T3. 


_3i* _ alO  CONTINUE - - - - 

34*  DO  215  IC  =  1»5 

35*  CEC(IH.IC)  =  n. 

_ 2JL5  CONTINUE - 

37*  DO  220  M  =  l.MENS 

3A*  MGCP(IH.M)  =  0 


L=l*o> . 


»E4.n) 

A8) 
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*stmpam*** 


***SIMPaM**« 


30* 

CmTmmih.m)  =  n. 

40* 

CT»/H  ( IH,M)  =  ft. 

41* 

CIOH(IH.M)  =  n. 

4?* 

CFS(Ih.m)  -  n. 

43* 

CFA(TW,M)  =  n. 

44* 

??0 

CONTINUE 

4S* 

00  ?3n  IP  =  1,5 

4ft* 

ncTsp(Ip)  =  n 

47* 

00  229  IS  =  1,5 

4ft* 

CTSp ( IP. IS  1  =  0. 

aq* 

CONTINUE 

sn* 

?30 

CONTINUF 

_ SI* 

no  ?4Q  IT  =  1 . ft 

52* 

NCTST ( IT )  =  n 

S3* 

DO  ?30  IP  r  1,5 

54*  _ 

_ .... 

CTST ( IT. IP )  =  o. 

ss* 

?39 

CONTINUE 

5ft* 

240 

CONTINUE 

_ sz*_. 

. 

_DQ.?il5  IES  =  l.fi 

5ft* 

DO  245  IT  =  1.7 

59* 

IREST (IES*  IT)  =  0 

_ ftft* 

_  245 

CONTINUE 

ftl* 

C 

PRINT  SIMULATION 

parametpp  ImPUTS 

ft?* 

IF(0R0(1)  .ne.  CHAR ( 1 ) )  00  TO  5ft0 

- 

. 

JK&ITEC2.25Q)  IQEMT* 

I  PAGE 

ft4* 

FORMAT ( 1H1 .  15X *  12A6*  13X,  ShPAGE  * 

55* 

IPAQE  =  IPAGE  *•  1 

Aft*- 

- _ _ 

WRITE(2,300) 

NSHIFT,  TOAY,  IM> 

ft7* 

?  NERROP,  PUl. ,  SRTA* 

PUS  *  SRTs 

ftft* 

.30  0 

FORMAT! 1H  . 

-59* 


70* 

7i* 

72*- 

73* 

74* 

-75*- 


7ft* 

77* 

7ft* 

79* 

nn* 

ftj  * 
ft?* 
ft3* 
B4* 
«5* 


14/) 


I  2X.  -23HN0.  OF  SHIFT  ITERATIONS,  113*  IOX, 

?  20HNO.  OF  SIMULATED  DAY,  113/ 

3  3X,  22HNO.  OF  HOURS  PER  SHIFT,  114,  IOX, 

4  I9HINITIAL  RACKLOG  'G3,  114/ 

5  3X ,  23HN0.  0^  ACTION  0FFICIEP5,  12V,  !1» 

5  10x,  13HRAMD0VI  NUMBER,  12X,  Pin. ft/ 

—  5 -DU-..!  ERROR  MESSAGES',  1RX,  11/ 

ft  3X,  20HN0.  OF  IOQ  OPERATOPSr  15X»  Tl// 

7  3X,  38HPR0R ABILITY  OF  UNDETECTED  ERROR  In  CCC*  8X, 
-ft  31HSYSTEM  RESPONSE  TlMF  TO  INQUIRY/ 

q  iox*  14hlow  importance*  F6.3, 

A  26X,  4HMEAN*  FT. 3/ 

1  IOX*  llHSIGNlFTCANT »  F9.3, 

?  26X*  2HSD*  FB.3//> 


SOO  CONTINUE 
RETURN 
END 


♦♦♦SUMMER***  ***SUMMER*** 


I 


!♦ _  SUBROUTINE  SUMMER 

2*  iNCL'inE  COVRLK 

3*  PRlMT  inOO 

-  4*  1000  FORM AT ( 22 ( IX/ ) f 

S*  1  *  r  3  DO  YOU  WANT  A  SIMULATION  SUMMARY?*) 

ft*  REAO  2000  f  AnSW 

. .  7* . 2000-  FORMAT  ( 2X  *  A^) 

fl*  IF (  ANSW  .EO.  ♦  MO*  .OR.  ANSW  . TO »  *MO  *)  GO  TO  99R 

0*  PRImT  1010»NSHIFT,NCC»FYDRM ) »FXPR(2) r  (M,MCL(M)» 

_ 111* _ 1 _ EXTPM(M) r  EXASE(M) f _m=i»menS) 

11*  1010  FORmAT(22(1Y/) f 

12*  1  /8v»  ‘AFTER*  »  I'**  *  ITERATIONS*  // 

_ L3_* _ _  2  •  MESSAGES  PROCESSED  ='fIO/ 

14*  3  •  A'/G  TIME  PrR  «ESSAGE=  *»  Pfi.l/ 

IS*  4  •  rPPECTIVFNRSR  =*  f FP.3/ 

1ft* _ _ _  fL  *  MAN  MSGS  AVG  T I  Mr /MSG  ASP'  / 

17*  6  Mn*  I6»  F14.1»  F7. ?/) ) 

Ifi*  REAO  O000*  A NSW 

19*-  ...  SO  CONTINUE 

20*  PRlMT  1020 

21*  1020  F0RMAT(22(1X/) f 

??* .  1  •  r  3  WHICH  HOUR  SUMMARY  no  YOU  WANT?*) 

23*  READ  2010fL 

24*  2010  FORMAT ( 2X t  12) 

2S*  IF (  L  .LE.  0)  GO  TO  9og 

2ft*  PRINT  1030  *  L»NSUTFTfMUCOmp(l»?) » (M*MGCP(L»M) * 

27*  1  EXTPMH ( L  f  M ) i  EXASPH(LfM) ,Mrl fMrmS) 

2a*  1030  format (22 ( ix/) f 

29*  1  /5YF  ♦ HOUR  *  f  I3f  »  AFTER' f  T^r  *  jTrpATTONS. *  // 

30*  2  •  MESSAGES  PROCESSED  ='  f  TO,  /// 

31*  3  •  MAN  MSGS  AVG  TIMr/MSG  ASP’  / 

32*  4  ft(  t3f  1 6 f  F14.1f  F7.3/)) 

33*  READ  2000 f  ANSW 

.  _34i --  . . -GO-  T-0  -50- . . 

3S*  099  CONTINUE 

3ft*  RETURN 

—  37*. - - - END 


116 


APPENDIX  c 

Flow  Charts 
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ENTER  MESSAGE  GENERATION  SUBROUTINE 
(MESGEN) 


FOR  IOD. 


CALCULATE  ASPERATION  AND  RESULTING  PACE  ADJUSTMENT  FACTOR. 
SELECT  ONE  OF  FIVE  CASES  FOR  EACH  MAN: 

(0)  |  ASP(M)-PERF|M)|  <  0.02  PAFA=1. 
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RECORD  PARAMETERS 
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MAN  DETERMINATION  SUBROUTINE  (MANDET) 


CALCULATE  STRESS  TIME  INCREMENT  FACTOR 

FROM  I - *■  ZIF= -1.829  (SF)3  +  3.472  (SF)2_2.351(SF)  +  1  IF  SF  <  1 


OPERATOR  PROCESSING  SUBROUTINE 
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COUNT  FAILURE/SUCCESSES 
FOR  CRITICAL  TASK  ELEMENTS. 
IF  CRIT(I,K)  =  C  AND 


RECORD  RESULTS  OF 
MESSAGE  SEGMENT 


DISTRIBUTION 


ARI  Distribution  List 


4  OASO  (MftRAI 
2  HOD  A  (OAMI-CSZ) 

1  HODA  (DAPE-PBRi 
t  HQOA  (OAMA-AR) 

1  HQOA  (DAPEHRE-PO) 
t  HQOA  (SGRD-ID) 

1  HQDA  (DAMI-OOT-C) 

1  HODA  IOAPC-PMZ  A) 

1  HQOA  (OACH-PPZ-A) 

1  HQDA  (DAPEHRE1 
1  HQOA  (OAPEMPO-CI 
1  HQDA  (OAPE-OW) 

1  HODA  (DAPE-HRU 
t  HQDA  (OAPE-CPS) 

1  HQOA  (OAFO-MFA) 
t  HQOA  (DARO-ARS-F) 

1  HQDA  (OAPCPAS-AI 
1  HQOA  (OUSA-OR1 
1  HQOA  IOAMO-RQR) 
t  HQOA(OASG) 

1  HdOAIOAUMM) 

1  Chut.  Consult  On  (OA-OTSGI.  Addpni.  MO 
1  Mil  An  Hum  Rss.  OOOR4E.  OAO  (EftLSI 
1  HQ  USARAL,  APO  Seattle.  ATTN:  ARAGP-R 

1  HQ  First  Army.  ATTN:  AFKA-OI-T1 

2  HQ  Fifth  Army.  Ft  Sim  Houston 

1  Oir,  Army  Stf  Studios  Ofc.  ATTN:  OAVCSA  (OSP) 
t  Ofc  Chief  ot  Stf.  Studmi  Ofc 
1  OCSPER.ATTN:  CPS/OCP 
1  Tin  Army  Lib.  Pentagon.  ATTN:  RSS  Chiif 
1  Th#  Army  Ub.  Pentagon.  ATTN:  ANRAL 
1  Ofc.  Asst  Sm  of  the  Army  IRftOI 
1  Tieh  Support  Ofc.  OJCS 
I  USASA.  Arlington,  ATTN:  IARO-T 

1  USA  Rsch  Ofc.  Ourltim.  ATTN:  life  Science*  Oir 

2  USARIEM.  Neoek,  ATTN:  SGRO-UE-CA 

1  USATTC.  Ft  Qeyton.  ATTN.  STETC-MO-A 
I  USAIMA.  Ft  Bran,  ATTN:  ATSU-CTO-OM 
t  USAIMA.  Ft  Bragg.  ATTN:  Mintuat  Ub 
I  US  WAC  Ctr  &  Sen.  Ft  McClellan.  ATTN:  Lib 
1  US  WAC  Ctr  ft  Sch.  Ft  McCMIan.  ATTN:  Tng  Oir 
t  USA  Ouarteemaedr  Sch.  Ft  Let.  ATTN:  ATSM-TE 
t  Intelligence  Mitanai  Dm  Ofc.  EWL.  Ft  Holebitd 
1  USA  SE  Signal  Sen.  Ft  Gordon,  ATTN:  ATSO-EA 
I  USA  Chaplain  Ctr  ft  Sch,  Ft  Hamilton.  ATTN:  ATSC-TE  RO 
1  USATSCH.  Ft  Eurni.  ATTN:  Educ  Advisor 

1  USA  War  Collage.  Cartisia  Barracks.  ATTN:  Lib 

2  WRAIR,  Neuropsychiatry  Olv 
1  DU.  SDA,  Montemy 

t  USA  Concept  Anal  Agey,  Bathaada.  ATTN:  MOCA-MR 
1  USA  Coraspt  Aral  Agey,  Bsthaada.  ATTN:  MOCA-JF 
1  USA  Arctic  Teat  Ctr.  APO  SaeMc.  ATTN:  STEAC-PL-MI 
1  USA  Arche  Test  Ctr.  APO  Seattle,  ATTN:  AMSTEPL  TS 
t  USA  Armament  Cmd.  Redstone  Anaral,  ATTN:  ATSK-TEM 
1  USA  Armament  Cmd,  Rock  Island.  ATTN:  AMSAR-TOC 
1  FAA-NAFEC.  Adamic  City.  ATTN:  Library 
I  FAA-NAFEC,  Adamic  City.  ATTN:  Human  Engr  Sr 

1  FAA  Aeronautical  Ctr.  Oklptoma  City,  ATTN:  AAC-440 

2  USA  FW  Arty  Sch.  Ft  Sill,  ATTN:  Library 
1  USA  Armor  Sch,  Ft  Knox,  ATTN:  Library 

I  USA  Armor  Sch.  Ft  Knee.  ATTN:  ATJB-DI-E 
1  USA  Armor  Sch,  Ft  Knox,  ATTN:  ATSft-OT-TP 
1  USA  Armor  Sch.  Ft  Knoa.  ATTN:  ATS8-C0-AO 


2  HQUSACOEC.  Ft  Ord,  ATTN:  Library 

1  HQUSACOEC.  Ft  Ord,  ATTN:  ATEC-EX-E -Hum  Factors 

2  USAEEC.  Ft  Beniamin  Harrison.  ATTN:  Library 

1  USAPACOC.  Ft  Benjamin  Harrison.  ATTN:  ATCP-HR 
I  USA  Comm-EHet  Sch.  Ft  Monmouth.  ATTN:  ATSN-EA 
1  USAEC.  Ft  Monmouth.  ATTN:  AMSEL-CT-HOP 
I  USAEC.  Ft  Monmouth.  ATTN:  AMSEL-PA-P 
I  USAEC.  Ft  Monmouth.  ATTN:  AMSEL-SI-C8 
t  USAEC.  Ft  Monmouth.  ATTN:  C.  Fad  Day  Br 
t  USA MaaahalaSya  And  Agey.  Abaedaan.  ATTN:  AMXSV-P 
1  Edgrssood  Anaral,  Abardaan.  ATTN:  SAREA-SL-H 

1  USA  Ord  Ctr  ft  Sch.  Abaedaan.  ATTN:  ATSL-TEM— C 

2  USA  Hum  Engr  Lab.  Abardaan,  ATTN:  Library /Oir 

I  USA  Combat  Arms  Tng  ftd.  Ft  Banning,  ATTN:  Ad  Supervisor 
t  USA  Infantry  Hum  Rsch  Unit.  Ft  Banning.  ATTN:  Chief 
t  USA  Infantry  Bd.  Ft  Banning.  ATTN:  STEBC-TE-T 
I  USASMA.  Ft  Blist.  ATTN:  ATSS-LRC 
1  USA  Air  Oaf  Sch.  Ft  BNaa.  ATTN:  ATSA-CTO-ME 
1  USA  Air  Oaf  Sch.  Ft  Bliss.  ATTN:  Tech  Lib 
1  USA  Air  Oaf  Bd.  Ft  Blits.  ATTN:  FILES 
1  USA  Air  Oaf  Bd.  Ft  Blits.  ATTN:  5TEBO-PO 
1  USA  Cmd  ft  General  Stf  Collaga.  Ft  Leavenworth.  ATTN:  Lib 
I  USA  Cmd  ft  General  Stf  Cottage.  Ft  Leavenworth.  ATTN:  ATSW-SE-L 
I  USA  Cmd  ft  General  Stf  Collage.  Ft  Leavenworth,  ATTN:  Ed  Advisor 
t  USA  Combined  Arms  Cmbc  Oaa  Act.  Ft  Lease rtworth.  ATTN:  OaoCdr 
t  USA  Combined  Am  Cmbt  Day  Act.  Ft  Leavenworth.  ATTN:  CCS 
»  USA  Combi  rad  Anna  Cmbt  Oaa  Act.  Ft  Laasanamnh.  ATTN:  ATCASA 
t  USA  Combined  Arms  Cmbt  Dev  Act.  Ft  Leavenworth.  ATTN:  ATCACO-E 
1  USA  Combined  Arms  Cmbt  Oav  Act.  Ft  Laaaanworth.  ATTN:  ATCACC-CI 
t  USAECOM.  Night  Vision  Lab.  Ft  Betvoir.  ATTN:  AMSEL-NV-SO 

3  USA  Computar  Sya  Cmd.  Ft  Belvoir.  ATTN:  Tech  Library 
1  USAMEROC.  Ft  Bahtpir.  ATTN:  STSFB-OO 

1  USA  Eng  Sch.  Ft  Belvoir  ATTN:  Library 
1  USA  Toppgraphic  Lab.  Ft  Belvoir.  ATTN:  ETL-TD-S 
1  USA  Topographic  Lab,  Ft  Belvoir.  ATTN:  STINFO  Canter 
t  USA  Topovaphic  Lab.  Ft  BaSseir.  ATTN:  ETL-GSL 
t  USA  Intailiganoa  Ctr  ft  Sch.  Ft  Huachuca,  ATTN:  CTD— MS 
I  USA  Inatliganei  Ctr  ft  Sch.  Ft  Huachuca.  ATTN:  ATS-CTD-MS 
1  USA  Intelligence  Ctr  ft  Sch,  Ft  Huachuca.  ATTN:  ATSI-TE 
1  USA  Indulgence  Ctr  ft  Sch.  Ft  Huachuca.  ATTN:  ATSI-TEX-GS 
1  USA  Intelligence  Ctr  a  Sch,  Ft  Huachuca.  ATTN:  ATSI-CTS-OR 
I  USA  Intelligence  Ctr  ft  Sch.  Ft  Huachuca.  ATTN:  ATSI-CTD-OT 
I  USA  Intelligence  Ctr  ft  Sch,  Ft  Huachuca.  ATTN:  ATSI— CTD-CS 
1  USA  Indulgence  Ctr  ft  Sch.  Ft  Huachuca.  ATTN:  OAS/SRD 
1  USA  Intalliganca  Ctr  ft  Sch,  Ft  Huachuca.  ATTN:  ATSI— TEM 
I  USA  Indulgence  Ctr  ft  Sch,  Ft  Huachucc,  ATTN:  Library 

1  COR.  HQ  Ft  Huachuca.  ATTN:  Tach  Ref  Olv 

2  COR.  USA  Electronic  Ftyg  Grd.  ATTN:  STEEP-MT-S 
I  Ha  TCATA,  ATTN:  Tedl  Library 

1  Ha  TCATA.  ATTN:  AT  CAT-OP -a  Ft  Mood 
I  USA  Recruiting  Cmd.  Ft  Sheridan.  ATTN:  uSARCPM-P 
1  Senior  Army  Adv„  USAFAGOO/TAC.  Elgin  AF  Aux  FM  No.  • 

1  HauSARPACOCBPCR.APOSF9EBaa.ATTN:  GPPf-SE 
1  Stimaon  Ub.  Academy  of  Hadpi  Science!.  Ft  Sm  Houaton 
1  Marine  Coroe  I  nit-.  ATTN:  Dean  MCI 

1  HCUBMC.  Commandant.  ATTN:  CodaMTMT 

t  HC  USMC,  Command pn.  ATTN:  Coda  MP I -20-28 

2  USCG  »radamy,  New  London,  ATTN:  Admioicn 
2  USCG  Academy,  New  London.  ATTN:  Library 

1  USCG  Training  Ctr,  NY.  ATTN:  CO 
I  USCG  Training  Ctr.  NY,  ATTN:  Educ  Svc  Ofc 
1  USCG,  FffChal  Ret  Br,  DC.  ATTN:  GP  1/82 
1  HQ  MM- Range  Br.  MC  Del  Quanbeo.  ATTN:  PftS  Ohr 
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1  US  Mirin'  Com«  Liaison  Ofc.  AMC.  Alexandna.  ATTN:  AMCGS-F 

1  USATRAOOC,  Ft  Monro*.  ATTN:  ATRO-cD 
6  USATRAOOC,  Ft  Monro*.  ATTN;  ATPR-AO 
t  USATRAOOC,  Ft  Monro*,  ATTN:  ATTS-EA 

t  USA  Forces  Cmo.  Ft  McPherson,  ATTN:  Library 

2  USA  Aviation  T*st  80  Ft  Rucker.  ATTN:  STEBG-PO 

l  USA  Agcv  for  Aviation  Safety,  Ft  Ruck*r.  ATTN:  L.brary 
1  USA  Agcv  for  Aviation  Saf*ty,  Ft  Ruckir  ATTN:  Educ  Advisor 
1  USA  Avution  Sen.  Ft  Ruckir,  ATTN:  PO  Orawar  0 

1  MQUSA  Aviation  Svs  Cmd,  St  Louis,  ATTN:  AMSAV-ZDR 

2  USA  Aviation  Svs  Test  Act.,  Edwards  AFB.  ATTN:  SAVTE-T 
t  USA  Air  0*f  Sch.  Ft  Bliss.  ATTN:  ATSA  TEM 

!  USA  Air  Mobility  Rscti  &  0«v  U0.  Moff*tt  Fid,  ATTN:  SAVDL-AS 
1  USA  Aviation  Sch.  R*s  Tng  Mgt,  Ft  Ruckar,  ATTN:  ATST-T-RTM 
1  USA  Aviation  Sch.  CO,  Ft  Ruckar,  ATTN:  ATST-O-A 
1  HQ.  OARCOM.  Alexandria,  ATTN  AMXCO-TL 
1  HQ.  OARCOM,  Alexandria.  ATTN:  COR 
1  US  Military  Acadatny.  West  Point.  ATTN:  Sarials  Unit 
1  US  Military  Acadamy.  W*st  Point.  ATTN:  Ofc  of  Milt  Ldrshp 
1  US  Military  Acadamy.  Wast  Point,  ATTN:  MAOR 
I  USA  Standardization  Go,  UK.  FPO  NY,  ATTN:  MASE-GC 
1  Ofc  of  Naval  Rach.  Arlington.  ATTN:  Cod*  4S2 

3  Ofc  of  Naval  Rsch.  Arlington.  ATTN:  Cod*  498 
I  Ofc  of  Naval  Rsch.  Arlington.  ATTN:  Code  4S0 
I  Ofc  of  Naval  Rsch.  Arlington.  ATTN:  Coda  441 

1  Naval  Aerospc  Mad  Ras  Lab.  Pensacola.  ATTN:  Acous  Sch  Oiv 
I  Naval  Aerosoc  Mad  Ras  Lab.  Pensacola.  ATTN:  Cod*  LSI 
1  Naval  Aarosoc  Mad  Ras  Lab.  Pensacola.  ATTN:  Cod*  L5 
1  Chief  of  NavPars,  ATTN:  P*rs-OR 
1  NAVAIRSTA,  Norfolk.  ATTN:  Safety  Ctr 
1  Nav  Oceanographic.  DC.  ATTN:  Cod*  6251 .  Charts  9  Tech 
1  Canter  of  Naval  Anal.  ATTN:  Ooc  Ctr 
I  NavAirSysCom.  ATTN:  AIR-5313C 
t  Nav  BuMad.  ATTN:  713 
1  NavHalicoPtarSubSqua  2.  FPO  SF  96601 
1  AFHRLIFTI  Williams  AFB 
1  AFHRL  (TTI  Lowry  AFB 

1  AFHRL  (ASIWPAFB.  OH 

2  AFHRL  (OOJZ)  Brooks  AFB 

1  AFHRL  IOOJNI  Lackland  AFB 
1  HQUSAF  IINYSOI 
1  HQUSAF  lOPXXA) 

1  AFVTG  (ROI  Randoloh  AFB 

3  AMRLIHEIWPAFB.OH 

2  AF  Inst  of  Taeh.  WPAFB.  OH.  ATTN:  ENE/SL 
1  ATC  IXPTOI  Randoloh  AFB 

1  USAF  AaroMad  Lib.  Brooks  AFB  (SUL-41.  ATTN:  OOC  SEC 
1  AFOSR  INLI,  Arlington 

1  AF  Log  Cmd.  McClellan  AFB.  ATTN:  ALC/OPCRB 

1  Alt  Fore*  Academy,  CO.  ATTN:  Oapt  of  8*1  Sen 
S  NavPars  9  Oav  Ctr.  San  Oiago 

2  Navy  Mad  Nauropsychiatric  Rsch  Unit.  San  Oiago 
I  Nav  Electronic  Lab.  San  Oiago.  ATTN:  Ras  Lab 

1  Nav  TrngCan.  San  Oiago.  ATTN:  Cod*  9000-Lib 
1  NavPottGraSch  Monterey,  ATTN:  Cod*  55Aa 
I  NavPottGraSch.  Monterey,  ATTN:  Cod*  2124 
1  NavTmgEquipCtr  Orlando.  ATTN:  Tech  Lib 
1  US  Oapt  0*  Labor.  DC,  ATTN:  Manpower  Admin 
I  US  Oapt  0«  Justice.  OC.  ATTN:  Drug  Enforce  Admin 
1  Nat  8ur  of  Standards.  OC.  ATTN:  Computer  Info  Section 
1  Nat  Clearing  House  for  MH-lnfo.  Rockville 
1  Denver  Federal  Ctr,  Lakewood,  ATTN:  8LM 
12  Oafant*  Ooeumantation  Center 

4  On  Psych,  Army  Ha,  Rusaall  Ofes.  Canberra 

I  Scientific  Advsr,  Mil  Bd.  Army  Ho.  Russell  Ofes.  Canberra 
1  Mil  and  Air  Attach*.  Austrian  Embassy 

1  Centra  da  Racharch*  Das  Factsurs.  Humeine  da  !*  Oafans* 
National*,  Brussels 

2  Canadian  Joint  Staff  Washington 

1  C  Air  Staff  Royal  Canadian  AF.  ATTN:  Part  Std  Anal  Br 

3  Chief.  Canadian  Oaf  Rich  Staff,  ATTN:  CCROSfWI 
J  British  Oaf  Staff,  British  Embassy,  Washington 


1  Oaf  9  Civil  Inst  of  Enviro  Medicine.  Canada 
1  AIR  CRESS.  Kensington.  ATTN  Info  Syt  Br 
1  Militaarpsvkologisk  Tjanatte  Cooanhagan 
1  Military  Attach*.  French  Embassy.  ATTN:  Ooc  Sac 
1  MedacmChaf  C  E.R.P.A. -Arsenal  TouionrNavei  Franc* 
1  Prm  Scientific  Off.  Appl  Hum  Engr  Rsch  Oiv.  Ministry 
of  Defense.  New  Delhi 

t  Pert  Rsch  Ofc  Library.  AKA.  Israel  Oafans*  Forces 
1  Minister's  van  Defartsie,  DOOP  K L  Afd  Soctaal 
Psychologisch*  Zaken.  The  Hague,  Netherlands 
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